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EDITORIAL 





Chers co-lecteurs, 


Nous sommes heureux de sortir enfin ce volumineux numéro triple qui fera 
date. À l’heure où nous écrivons ces lignes, il nous tarde de vous rencontrer pour 
vous faire part des dernières nouvelles rapportées de Corvallis par M. Martinet. 


Notre ami et néanmoins co-llègue est allé au cours du mois de février à une 
réunion internationale dans les locaux de l’usine HP de l’Oregon. Parmi les 
informations les plus importantes, nous pouvons citer : 


La HP-41 et ses accessoires devraient prochainement voir leur prix baisser. 
Ainsi, la 41CX descendrait en dessous de 70$. La raison : l’arrivée d’un nouveau 
contrôleur de boucle HPIL (le HP-72C), un "remake" du HP-71,. 


Ce micro-ordinateur, toujours avec la même rom système, mais déboguée et 
élargie, tournerait sur un CPU de 20 bits (réels !) avec une fréquence d'horloge 
de 10 MHz. On parle d’une extension des roms internes à 256Ko, et d’une 
capacité d’adressage portée à 2Mo, dont 640Ko (comme les compatibles IBM-PC) 
d’origine. 


D'autre part, le HP-72C est équipé d’un mini- écran (HPIL) plat à cristaux 
liquides de 16 lignes de 40 caractères. Cet écran est rabattable, détachable et livré 
d’origine avec la machine. 


Prix total : aux environs de 500$. Philippe Guez est depuis peu en possession 


d’un prototype, et le banc d'essai de cette fabuleuse machine paraîtra dans le 
prochain numéro. 


Toute l’équipe se joint à nous pour vous souhaiter de bonnes heures de 
programmation... 


Jean-Jacques Dhénin et Pierre David 
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PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en péride de vacances scolaires) au : 
Centre de Jeunesse et de Loisirs Jean Verdier 

11 rue de Lancry 

75010 Paris 

et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l'accès en métro, trois possibilités s'offrent à vous : 
- Métro Stransbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs. 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions. À bon entendeur, salut ! 

Les dates des prochaines réunions sont : 

Samedi 19 avril 1986 


Samedi 3 mai 1986 
Samedi 7 juin 1986 


Pierre DAVID 
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COURRIER DES LECTEURS 


M. CANTERI Gilbert 
Groupe scolaire 
Place E.PILLON 
91310 LINAS 


Linas, 20/2/1986 


J'aimerai utiliser une calculatrice 
programmable HP41CV pour faire de l'acquisition 
de données à partir de signaux analogiques 0-5 
volts. 


Pourriez-vous me dire s'il existe des systèmes 
de convertion analogiques-digitaux (ainsi que 
leurs références) pour cette calculatrice et s'il 
existe des programmes d'acquisition. 


Cher ami, 


l'acquisition de données avec ton HP41 est 
possible. (Cependant jusqu'à présent j'ai plutôt 
vu des applications faisant de l'aquisition 
digitale. La règle à calcul (Bld Saint-Germain à 
Paris) a présenté une boucle HPIL contenant une 
balance (type pharmacie) au Sicob. De plus, il 
me semble que La Société Kristal à Grenoble a 
travaillé sur des applications analogues. 


JJ DHENIN 


BILLEX 

94700 MAISONS ALFORT 11/01/1986 

Le manuel du Forth/Assembleur me semble un peu 
chiche en explication, particulièrement sur 
l'assembleur. Aussi j'aimerai connaître la 
réponse à 2 ou 3 questions. 


-A combien (où comment) trouve-t-on Les 3 
volumes des 1.D.S. internal design 
specification ? 


-Quel est Le tome Le plus intéressant ? 


-Existe-t-il un Livre que vous recommandez dans 
le domaine de l'assembleur ? 


A La relecture des éditions du JPC, il m'a 


semblé que Le forth était un peu délaissé, à ce 
propos, n'y a-t-il pas un livre correct pour 
l'apprentissage du FORTH ? 


Concernant l'écriture des programmes en 
assembleur, est-il nécessaire de définir des 
labels qui ne servent qu'une fois ? ex : 


=BF2DSP EQU #01C0E | pourrait s'écrire 
GOSBVL =BF2DSP | GOSBVL #01C0E 


Bien que Le manuel ne parle pas de cette 
possibilité. 


Par ailleurs, pourrait-on envoyer des articles 
sous forme carte magnétique pour aider à la 
parution du journal ? 


Cher ami, 
reprenons dans l'ordre. 


- Les IDS sont un ensemble de documentations 
comprenant 5 volumes : 


* HP-71 Software Internal Design Specification 
Volume 1 :  Detailed Design Description 
Volume 11 : Entry Point and Poll Interfaces 
Volume 111 : Operating Systeme Source Listing 

* HP-71 Hardware Specification 

* HP-71 HP-IL Module Internal Design Specif. 
Volume 1 :  Detailed Design and Entry Point 
Volume 11 : Source Listing 


Pour obtenir ces documents, il convient de 
s'adresser à HP France. Cependant on peut te 
prêter L'un ou l'autre de ces volumes si tu en 
exprimes Le souhait au cours d'une de nos 
réunions du Samedi. Tu pourras ainsi te rendre 
compte par toi-même de leur intéret. 


Si tu n'es pas rompu au travail en assembleur 
il ne me semble pas qu'un Livre puisse te guider 
en tous cas en ce qui concerne Le HP-71 qui est 
équipé d'un CPU 64 BITS. Cependant La lecture 
des sources (IDS) et La réalisation de tes 
propres fonctions te conduiront à une maîtrise 
de plus en plus performante. On parle également 
d'un groupe qui se réunirait à Paris tous les 
samedis. Mais qui serait intéressé ? 


En ce qui concerne Le FORTH, JPC est le reflet 
de La composition des membres du Paris-Chapter. 
Seuls Les articles qui nous sont envoyés 


du re ni tn en a À CODE RE CERN ER 


composent Le journal et personne n'est rétribué. 
En conséquence tant que Le FORTH ne trouve que 
peu d'amateurs, il sera délaissé, en effet. 

Des Livres ce n'est pas ça qui manque en la 
matière. Par contre il semble difficile te t'en 
conseillé un. Tout dépend de ton niveau. Va 
faire un tour dans une librairie, parcours 
quelques ouvrages tels que Débuter en FORTH ou 
Programmer Le FORTH R.V. LOO Ed. Marabout (30F). 


Enfin, et c'est important, tu as tout à fait 
raison, nous préférons recevoir les articles sur 
support magnétique (cartes, cassettes, ou 
disquettes) et cela même pour Le courrier qu'il 
faut bien retaper pour La mise en page. 


JJ DHENIN 


DANIEL CONNAN PPC PC 143 
152 Avenue J.Jaurès 


93500 PANTIN 


5/12/85 


Une petite note discordante dans le concert 
d'autosatisfaction dont donne l'impression La 
lecture de JPC. 


Attention, je ne mets pas en doute La bonne 
foi et le dévouement de La poignée de personnes 
qui se décarcassent pour le faire "sortir". 


Mais je dois reconnaître en toute subjectivité 
que je n'y trouve pas ce que j'y cherche, et que 
jusque maintenant, j'ai cotisé pour rien. Je ne 
pense pas être Le seul dans mon cas, car il est 
maintenant de notoriété publique que La micro- 
informatique d'amateur marque Le pas, sinon 
régresse. Cela commence à se savoir qu'à part 
l'usage professionnel un micro ordinateur ne 
sert à rien. 


Pressentant la chose, j'ai voulu tâter 
prudemment Le terrain avec un HP34C, une Casio 
FX702P, et enfin un HP15C et je me suis fixé 
comme but l'étude des mathématiques. 


Une chose est acquise, Les calculateurs ne sont 
pas en cause, ce sont de merveilleux outils 
fiables et tout et tout. 


Avec eux, tant bien que mal, j'ai eu accès à 
des notions mathématiques qu'il m'aurait été 
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impossible d'acquérir autrement, mais c'est là 


où le bât blesse, quand une question se présente 
à mon esprit où trouver la réponse ? 


Certains Livres sont tellement abstraits que je 
les trouve illisibles. Question de niveau ? 
bien sur, mais dans certains Livres je comprends 
les séries de Fourier, Les  polynômes de 
Lagrange, et dans d'autres la notion de dérivée 
est  camouflée soigneusement sous un langage 
barbare. Je ne suis arrivé à La comprendre qu'en 
recoupant cinq à six livres différents. 


J'aurais bien aimé trouver au club des "cours 
magistraux" adaptés aux machines sur telle ou 
telle question que chacun aurait choisi à son 
tour. Les "réunions informelles!" du samedi c'est 
bien, mais Les a-parté à voix basse n'apprennent 
pas grand chose. 


Merci quand même à Pierre DAVID qui Lors de ces 
réunions a bien voulu me consacrer deux heures à 
faire tourner sur HP718 un programme 
coefficients  FOURIER et à m'en fournir le 
Listing... en BASIC alors que le propre de HP 
était justement La notation polonaise inverse 
qui a bien été laissée en plan La pauvre. Depuis 
j'ai mis sur pied un programme calculant. les 
dits coefficients et  restituant le graphe 
d'après ces coefficients, sur 36 points, le 
maximum permis par Le nombre de mémoires, 


Encore une chose, j'ai vu quelque part que HP 
avait daigné établir des relations avec PPC sur 
des bases "professionnelles". Qu'est-ce à dire ? 


Jusqu'à nouvel ordre, PPC est un club régi par 
la Loi de 1901, c'est à dire à but non lucratif. 
Je pense que Le professionalisme d'HP à sens 
unique a pour but de VENDRE Le maximum de 
matériel. Pas de mystère. 


Et bien soit, soyons professionel. J'en suis 
toujours au même point : je cherche à faire 
tourner sur  HP15C Le programme PI en 
multiprecision de Science et Vie N 789 de 
décembre 1980. (déjà 1). Naïvement j'avais 
offert une médaille à votre concours de 
programmes (dont on n'entend plus parler), 
visiblement personne ne s'y interesse. 


Voyons Les capacités des professionnels  . 
Sont-ils au top niveau et concurrentiels ? 


Je lance ici ce qu'on appelle un appel 
d'offres, c'est à dire que je suis prêt à payer 
pour avoir La solution de mon problème. Je 
serais également intéressé par un "topo! et un 
programme calculant toutes Les racines réelles 
et complexes de l'équation du 5ème degré. Pas de 
démonstration abstraite mais un programme qui 
tourne sur HP15C. 


J'attends Les propositions. Je rappelle aussi 
que j'ai proposé 2 fois de venir aider à la 
parution de JPC, j'ai envoyé ma contribution 
pour Le stand du SICOB, j'ai offert du temps 
pour aider à Le tenir : pas de réponse. 


Tout cela est peu encourageant. Je pressens 
pourtant que Le HP71B est un outil formidable, 
mais je ne ferai l'effort de l'acquérir que 
quand j'aurai La certitude de trouver réponse 
eux innombrables questions qu'il ne manquera pas 
de susciter, ce qui apparemment n'est pas demain 
la veille. 


Et puis, Le graphisme en couleur de L'Amstrad 
de 256 ou 512 Ko n'est pas mal non plus pour les 
jeux, La simulation (voler en spitfire 1) 
etc...etc... 


Conclusion : à défaut de cette lettre qui 
déparerait JPC pourriez-vous insérer (même à 
titre onéreux) l'appel d'offres suivant : 


Je cherche à titre payant une personne pouvant 
faire tourner sur HP15C Le programme Science et 
vie 789 de décembre 1980 et calculant PI en 
multiple précision. 

Je suis acheteur également d'un programme 
calculant Les solutions réelles et complexes de 
l'équation du 5ème degré. (sur HP15C) 


Cher ami, 


devant cette avalanche de compliments, je vais 
devoir prendre un peu la défense de mes petits 
camarades, et ce, point par point. 


Le concert de satisfaction où tu mêle ta note 
discordante, est justifié à plusieurs titre : 

«la bonne humeur, l'ironie font partie de notre 
club. Il est déjà assez difficile de résoudre 
les difficultés quotidiennes sans en rajouter 
par une attitude constipée. 

-Nous étions partis à une dizaine dans cette 
aventure et nous sommes maintenant près de trois 








cents. -Cela a nécessité une grande régularité 
de l'effort des heures de travail, et par voie 
de conséquence nous pouvons bien ne pas nous 
prendre au sérieux. 

-Nous sommes effectivement Les meilleurs (sur 
HP71) il suffit, pour s'en convaincre, de lire 
les autres revues. Nous avons plus de 60 
fonctions en assembleur à notre actif à ce jour. 
-Tous cela n'aurait pas été possible sans un 
travail collectif de beaucoup. Il n'y pas de 
place pour l'individual isme dans notre 
association. 


Nous sommes tous de bonne foi et dévoués, car 
si certains mettent en page Le journal, d'autres 
se décarcassent pour écrire les articles. 


Ce journal est, comme on dit, une auberge 
espagnole tu y trouves ce que tu apportes. Oh! 
j'entends déjà ta réponse, tu te proposes pour 
le Sicob et en contre partie tu veux des 
programmes pour ton HP15, et de plus tu 
t'étonnes de ne pas avoir de réponse pour ta 
participation au SICOB. Fallait venir. On avait 
tellement de boulot qu'on n'avait même pas le 


temps de te répondre. 


Des cours magistraux il y en a La FAC. Nous, 
nous  réunissons pour échanger. La preuve P. 
David t'a donné de son temps pour résoudre ton 
problème. Cela dit puisque tu sembles de bonne 
volonté je te propose de mettre sur pied les 
réunions dont je parle dans La réponse 
précédente. Ce sera une bonne chose que nous 
ayons quelqu'un qui prenne en charge 
l'organisation de ce truc. 


Je termine. Combien faut-il de temps pour 


recopier ta lettre et y répondre ? 


JJ DHENIN (de mauvais poils)! 


COURRIER DU COEUR 


Jean-Jacques DHENIN 
35 rue Boileeu 
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92120 MONTROUGE 

Vend : 

1 module "Translator-pac" pour HP71B" 

Prix neuf : 1830ff, soldé 1400ff. 

JP INDJEHAGOPIAN, 142 Grande Rue, 92380 
Garches. Tel.: Bur. (1) 30 38 38 00 -+ Dom. (1) 
47 41 21 97. Vends: HP75C (02/83 peu servi) avec 
module 8k à 3800FF, Imprimante 80 colonnes 
HP829058 IL (02/83 peu servi) à 3000FF, Moniteur 
Vidéo (22cm) HP82912A à 1000FF, Interface Vidéo 
HP821638 à 1100FF, Lecteur de cartes HP82104A 
(1984 jamais servi) pour HP41 à 1100FF, Lecteur 
de codes barres pour HP41 à 600FF, Module 
PLOTTER HP82184 pour  HP41 à  500FF, des 
accessoires pour HP75: Text Form à  600FF, 
Visicalc à 1300FF, Maths à 900FF. Factures, 
modes d'emploi, emballages d'origine fournis. 


Vend lecteur de cartes pour HP-71. Etat neuf 
(Acheté Le 01/02/85). Sous garantie. Contacter: 
Jean-Jacques Moreau 
64 ave de La paix 
93150 Le Blanc-Mesnil 
Tel: 48-67-33-04 (Apres 20 heures) 


Thierry BRAVIER, 60 Rue du Chateau d'eau, 75010 
Paris. Tel.: (1) 42 02 28 90. Urgent, vends pour 
HP41: module HPIL (1983) quasiment jamais servi, 
Lecteur de codes barres, lecteur d'éproms - 
programmeur de microcodes avec une  éprom 
préprogrammée pleine de fonctions, un lecteur de 
cartes à faire réparer et divers accessoires 
pour HP41 (cartes magnétiques, chargeur, étui 
pour piles à encastrer, grilles plastifiées), 
grosse documentation (Nombreux programmes, 
livres, manuels et de très nombreux numéros de 
divers PPC - US, Paris, Toulouse, Australie -) 
le tout vendu ensemble ou séparément. Faites vos 
offres (raisonnables). 


A. BOURG -BROC 

13, rue Albert Samain 

45000 ORLEANS 

Vends : 

HP41 CV (déc. 81) 

Module X.FUNCTIONS 

Module Extention-Mémoire 

Module “financier 

Module "statistiques" 

lecteur de cartes magnétiques 
manuel d'utilisation de La 41CV 
manuel d'applications 

manuel de l'utilisateur expérimenté 


+ + + = = = = = — 
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+ manuel d'utilisation du lecteur 
+ bilbliothéque "financière 
+ bibliothéque "statistique! 
+ batterie cadmium neuve 
clavier neuf 


L'ensemble = 4100,00 ff 
Contact = 10h/17h (1) 43 87 23 51 


20/21h30 38 62 77 83 
F. LEGRAND 
Rue de La poterie 
TREVIGNON 
29128 TREGUNC 
tel : 98 50 00 10 
Vends : 
1 HP41CV 1100 
1 imprimante 82143 1000 
1 lecteur de cartes 82104 800 
1 modue time 400 


1 module extention fonctions 400 
2 modules extention mémoire 800 


1 module navigation 14017 200 

500 cartes magnétiques 400 

1 clavier souple 0 

1 convertisseur hpil 82166 neuf 

1500 

1 overlay kit 0 

7... accessoires divers 0 
Total 6500 
bradé 6000 

F. DEJEAN 

921, rue du Dr. SHAFFNER 

NOUTYELLES/SOULENS 

62221 Nord Pas-de-Calais 

Vends : 

1 HP41 


1 imprimante 82143 
1 lecteur de cartes 


4500 ff 





ingenierie 





Monsieur Philippe GUEZ 
P P C PARIS 
56 rue J.J Rousseau 


75001 PARIS 


V/RÉEF. 


25 février 1986 
N/RÉF. BOULOGNE, le 9 


AB/HA 86095 


Monsieur, 


Comme convenu lors de notre entretien téléphonique de ce jour, nous 


vous confirmons par la présente nos besoins 


Fonction : Analystes Programmeurs 
Matériel :  H.P 71 
Langage : Assembleur 71 (et Basic) 


Nous attirons votre attention sur la necessité absolue de connaitre 


le H.P 71 ainsi que l'Assembleur 71 qui lui est associé. 


Le salaire à débattre en fonction de l'expérience et des diplômes 


éventuels, se situera aux alentours de 130.000,00 Frs/aAn. 


En vous remerciant par avance, veuillez agréer, Monsieur, l'expression 


de nos salutations distinguées. 


Bernard ARR 
7 






irecteur Informatique 


D.B.E. INGENIERIE - 40, RUE DES LONGS PRÉS, 92100 BOULOGNE, FRANCE - TÉL. (1) 46.08.11.66 + - TÉLEX : DEBELEX 204050 F 
S.A. AU CAPITAL DE 1.000.000 F. - R.C.S. NANTERRE B 319 115 531 - APE 7701 





Découper les trois panneaux. Suivant la manière dont on les assemble, l'une des têtes 
disparaît. | 
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HP-41 


Serge Vaudenay Polynômes 10 
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POLYNOMES 


Approximations polynômiales. 


Je vous parlerai, aujourd'hui, d'un problème 
que n'importe quel scientifique peut rencontrer: 
l'observation d'un phénomène physique. 


Que ce soit l'évolution du pH d'une solution en 
fonction du temps, La température ambiante d'une 
région en fonction de La date, le nombre des 
articles écrits par un adérant du club en 
fonction de l'éxitabilité de ses neurones, le 
nombre d'aufs pondus par une poule 
convenablement nourrie en fonction de son âge ou 
La pression de La vapeur d'eau en fonction de La 
température (exemple que j'ai retenu), nous 
pouvons mesurer ces phénomènes, mais à priori, 
nous ne pouvons pas trouver de loi générales. 


On a fait des mesures, et on voudrais bien 
pouvoir évaluer sans trop d'erreurs ce qui se 
passe entre ces mesures. En suposant que le 
phénomène soit “monotone! entre les mesures, 
c'est à dire qu'il varie toujours dans Le même 
sens, on peut trouver un polynôme dont La courbe 
coïncide parfaitement avec Les mesures 
effectuées. La mémoire de votre HP41 Limite à 14 
mesures pour La recherche de ce polynôme. Le 
programme que je vous Livre évalue donc, à 
l'aide du nouveau module de gestion de tableau, 
ce polynôme qui permettra de généraliser Le 
phénomène dans Les Limites des mesures 
effectuées (il _ n'est donc pas question 
d'extrapoler). 


Prenons l'exemple de La pression de la vapeur 
d'eau en fonction de sa température. Supposons 
que nous ayons effectué Les six mesures 
suivantes : 


-5 degrés 0.0025 
0 degrés 0.0038 
5 degrés 0.0054 
10 degrés 0.0076 
15 degrés 0.0107 
20 degrés 0.0147 


Pour entrez ces valeurs, faites : 


XEQ "POL"' 
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A la question 
DEGRE ? 
vous répondez : 
5.00 


(ce sera Le degré du polynôme à chercher à 
partir des 5+1 mesures) puis [R/S] 


Vous pouvez ensuite Les températures des 
mesures : 


x1,1=_ (5) 

X1,1=5_ [CHS] 

X1,1=-5_ (R/S] 
etc.. 

X2,1=0 

X3,1=5 

X4,1=10 

X5,1=15 

X6,1=20 


Vous entrez les pressions : 


Y1,1=0.0025 
Y2,1=0.0038 
Y3,1=0.0054 
Y4,1=0.0076 
Y5,1=0.0107 
Yé,1=0.0147 


Après un certain temps de réflexion, La machine 
affiche : 


X2,1=2.00 -08 
X3,1=3.00 -07 
X4,1=5.50 -06 
X5,1=2.83 -04 
X6,1=3.80 -03 


Ce sont Les coefficients du polynôme (ordre 
décroissant). 


REG 47a52 
Y=ER47*X"S +R4B*x "4 +R49*x"3 +RSO*xX"2 +R5I*X +R52 


Avec Le POL, on a donc une approximation 
acceptable pour ce phénomène. Le programme POL 
résoud, en fait, un système de n+1 équations 
linéaires à n+1 inconnues (n étant Le degré du 


polynôme). 





POL est un programme dérivé du programme SYST, 


qui résoud n équations à n inconnues, par la 


méthode du pivot de Gauss dont on donne 
également Le Listing. 


Exemple : soit Le système suivant 


2x - 3y + z=-6 Ne 11 -6 
5x - 6y = 3 5 ‘+6 0 3 
x +4y +9z= 2 1 4 9 2 


J' ai écris à côté La matrice du système. 


Faites XEQ'SYST', entrez Le nombre d'inconnues 
(içi ordre 3), [R/S], puis La matrice, ligne par 
ligne. Le programme liste ensuite La matrice 
pour La vérifier, et vous demande si c'est bon 
(OK 7). 


Vous répondez O pour oui, et La machine vous 
donne Les solutions qui sont içi : 


x=8.0943 y=6.2453 z=-3.4528 (registres 17 à 19) 


Note : un système singulier admet une infinité 
de solutions, et un système impossible n' admet 
aucune solution. 


Serge Vaudenay 


PROGRAMME POL 


Même si d'un point de vue strictement mathématique 
ce programme n'est pas satisfaisant, du fait 
que si Le nombre de mesures est important on 
obtient un polynôme inommnable, ce programme offre 
l'intérêt de mettre en évidence Les qualités du 
nouveau module de gestion de tableau (PANAME) 
fabriqué par des membres du club PPC français et 
disponible avec un manuel de près de 200 pages 
à La Règle à Calcul ou auprès de votre club 
préféré. 


O1mLBL "POL' 
02 "DEGRE ?" 
03 PROMPT 

04 1 

05 + 


06 5 

07 RCL Y 
08 1 

09 + 

10 RCL Z 
11 XC>Y 
12 CHS 


13 BLOPT 
14 RCL X 
15 CLINC 


16 RGNb 
+7 RCL Z 
18 + 
19 6 
20 + 
21 S1ZE? 


22 X<>Y 
23 X>Y? 
24 PSIZE 
25 R° 

26 STO 04 
27 R° 

28 STO 00 
29 BRKPT 


38 STO 03 
39 uxu 

40 XEQ 02 
41 RCL 04 
42 1 

43 - 

44 RCL 00 
45 COLPT 
46 RCL 03 
47 1E-3 
48 - 

49 RGCOPY 
50 STO 02 
51 1 

52 RCL 04 


oo 





X contient Le numéro du premier 
registre du tableau. Le signe - 
prépare La construction d'un 
pointeur de tableau. 


En effaçant l'incrément, on 


désigne La totalité du tableau. 
Calcul du nombre de cellules. 


Le module de gestion de tableau 
contient Les fonctions SIZE et 
PSIZE. 


Eclatement du pointeur en ses 
3 composantes dans X, Y et 2. 


Reconstruction du nouveau 
pointeur. 


Calcule Le pointeur de La col 


Copie La colonne toute entière. 
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53 RCL 00 
54 COLPT 
55 RGINIT Remise à zéro de La colonne. 
56 RG+Y 
57 à 

58 RCL 04 
59 X=Y? 
60 GTO 00 
61 2 

62 - 

63 STO 01 


64alBL 07 

65 RCL 01 

66 INT 

67 RCL 00 

68 COLPT 

69 RCL 02 

70 RGCOPY 

71 RCL 01 

72 INT 

73 1 

74 + 

75 RCL 00 

76 COLPT 

77 RG* Produit terme à terme des deux 
colonnes 

78 DSE 01 

79 GTO 07 


80sLBL 00 

81 RCL 03 

82 1 E-3 

83 . 

84 SORT Effectue le tri. 
85 RCL X 

86 1 

87 + 


88aLBL 08 

89 RCL IND X 
90 ST- IND Z 
91 RDN 

92 RCL IND Y 
93 X#07? 

94 GTO 00 

95 "SINGULIER" 
96 AVIEW 

97 RTN 


98aLBL 00 
99 RDN 

100 RCL X 
101 ISG X 


102 GTO 08 
105 Ye 
104 XEQ 02 
105 RCL 04 
106 1 

107 + 

108 RCL 00 
109 COLPT 
110 RCL 03 
INTES 
112 - 

113 RGCOPY 
114 RCL 04 
115 1 

116 - 

117 STO 01 


118aLBL 03 
119 1 

120 RCL 01 
121 0 

122 BLDPT 

123 STO 02 


124mL8L 04 
125 RCL 02 
126 INT 
127 RCL 01 
128 1 

129 + 

130 RCL 00 
131 LC-AD 


132 RCL IND X 


133 X=0? 
134 GTO 05 
135 XY 
136 RCL 04 
137 + 

138 1 

139 + 

140 RDN 


141 RCL INDT 
142 X#07? 


143 GTO 00 
144 RCL 02 
145 INT 
146 RCL X 
147 1 

148 + 

149 RCL 00 
150 LINPT 
151 X©>Y 





Calcule Le numéro du registre 
où se trouve la valeur 


Y=ligne, X=colonne -> Registre 


Calcule Le pointeur de ligne. 
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152 RCL 00 200 RCL 01 


153 LINPT 201 INT 
154 CHS Le changement de signe indique 202 RCL X 
155 RGCOPY un échange terme à terme des 203 1 
deux lignes. 204 - 
156 GTO 04 205 RCL 00 
206 LC-AD 
157sLBL 00 207 . 
158 / 208 BLDPT 
159 CHS 209 RGSUM Calcule La somme des éléments 
160 RCL 02 
161 INT 210sLBL 00 
162 1 211 RCL 01 
163 + 212 INT 
164 RCL 00 213 RCL 04 
165 LINPT 214 1 
166 RCL 03 215 + 
167 X<>Y 216 RCL 00 
168 RGCOPY 217 LC-AD 
169 RG*Y Multilie chaque terme de La 218 RDN 
Ligne par La constante 219 RCL INDT 
constante contenue dans Y. 220 - 
170 RCL 02 221 CHS 
171 INT 222 RCL 01 
172 RCL 00 223 INT 
173 LINPT 224 RCL X 
174 X<>Y 225 RCL 00 
175 RG+- Somme terme à termes des 2 226 LC-AD 
Lignes. 227 RDN 
176aLBL 05 228 RCL IND T 
177 1SG 02 229 / 
178 GTO 04 230 1 
179 DSE 01 231 RCL 01 
180 GTO 03 232 INT 
181 1 233 RCL 03 
182 RCL 04 234 LC-AD 
183 . 235 XCY 
184 BLDPT 236 STO IND Y 
185 STO 01 237 RCL 01 
186 1 E-3 238 INT 
187 ST- 03 239 RCL 00 
240 COLPT 
188sLBL 06 241 RG*Y : 
189 RCL 01 242 1SG 01 
190 INT 243 GTO 06 
191 1 244 RCL 03 
192 - 245 "x" 
193 X=0? 246 2 E-7 
194 GTO 00 247 + 
195 1 248 CHS 
196 + 249 RGVIEW Visualise tous Les éléments 
197 1 de La matrice . 
198 RCL 00 250 CHS 
199 LC-AD 251 BRKPT 


0 
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252 "REG " 

253 RDN 

254 X<>Y 

255 APPX Affiche la partie entière. 

256 nl-at 

257 X©Y 

258 APPX 

259 CLST 

260 AVIEW 

261 RTN 

262mLBL 02 

263 RCL 03 Rappel du pointeur matrice 
à saisir. 

264 CLINC Indique tous les éléments. 

265 RGINIT Remise à zéro de tous Les 
éléments. 

266 9.997 E-4 Prépare l'affichage pour 

267 - RGVIEW : X i,j= 

268 CHS Arrêt sur première valeur. 

269 RGVIEW Cette seule instruction pour 
saisir La totalité de La 
matrice. Merci. 

270 .END. 


PROGRAMME SYST 


Résolution de systèmes par La méthode de Gauss 
au moyen du module gestion de tableau dit 
PANAME parce qu'il a été conçu à Paris. Vous 
apprécierez Les ordres BLDPT, BRKPT, COLPT, 
LGNPT, RGCOPY, RGINIT ..etc. IL y a comme ça 
plus de 120 fonctions dans un module de 8 Ko 


O1aLBL "SYST" 
02 "ORDRE 7?" 
03 PROMPT 

04 5 

05 RCL Y 

06 1 

07 + 

08 RCL Z 

09 X<>Y 

10 CHS 

11 BLOPT 

12 RCL X 

13 CLINC 

14 RGNb 

15 RCL Z 

16 + 

17 6 

18 + 





19 SIZE? 
20 X<>Y 
21 X>Y? 
22 PSIZE 
23 R* 

24 STO 04 
25 R* 

26 STO 00 
27 BRKPT 
28 RDN 

29 1 

30 + 

31 RCL 04 
32 1 

33 + 

34 -1 

35 BLDPT 
36 STO 03 
37 RCL 00 
38 CLINC 
39 RGINIT 


4OmLBL 02 
&1 RCL 00 
42 3 E-7 

43 + 

44 CHS 

45 "Au 

46 RGVIEW 


47 "VERIFICATION" 


48 AVIEW 
49 A“ 

50 CHS 
311E-7 
Sè - 

53 PSE 

54 RGVIEW 
55 "OK ?" 
56 Y/N 

57 GTO 00 
58 GTO 02 


59sLBL 00 
60 RCL 04 
61 1 
62 - 
63 STO 01 


64aLlBL 03 
65 1 

66 RCL 01 
67 0 

68 BLDPT 

69 STO 02 
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70sLBL 04 


BUABUFUR 2 8 S S d A N à 


289 


9e 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 


RCL 02 
INT 
RCL 01 
1 

RCL 00 
LC-AD 
RCL IND X 
X=0? 
GTO 05 
X<>Y 
RCL 04 
+ 

L 

+ 

RDN 
RCL INDT 
X#07? 
GTO 00 
RCL 02 
INT 
RCL X 
1 

+ 

RCL 00 
LINPT 
X<>Y 
RCL 00 
LINPT 
CHS 
RGCOPY 
GTO 04 


103sLBL 00 


104 
105 
106 


/ 
CHS 
RCL 02 


107 INT 


108 
109 
110 
111 
112 
113 
114 
115 
116 


117 


118 
119 
120 
121 


; 
+ 

RCL 00 
LINPT 
RCL 03 
X<>Y 
RGCOPY 
RG*Y 
RCL 02 
INT 
RCL 00 
LINPT 
X<>Y 
RG+- 


1228LBL 05 
123 1SG 02 
124 GTO 04 
125 DSE 01 
126 GTO 03 
127 1 

128 RCL 04 
129 . 

130 BLDPT 

131 STO 01 
132 1 E-3 

133 ST- 03 


134nLBL 06 
135 RCL 01 
136 INT 
137 1 

138 - 


139 X=0? 


140 GTO 00 
141 1 

142 + 

143 1 

144 RCL 00 
145 LC-AD 
146 RCL 01 
147 INT 
148 RCL X 
149 1 

150 - 

151 RCL 00 
152 LC-AD 
153 . 

154 BLDPT 
155 RGSUM 


156aLBL 00 
157 RCL 01 
158 INT 
159 RCL 04 
160 1 

161 + 

162 RCL 00 
163 LC-AD 
164 RDN 


165 RCL INDT 


166 - 

167 CHS 
168 RCL 01 
169 INT 
170 RCL X 
171 RCL 00 
172 LC-AD 


TT 
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173 RDN 
174 RCL INDT 
175 SF 25 
176 / 

177 FC?C 25 
178 GTO 07 
179 1 

180 RCL 01 
181 INT 
182 RCL 03 
183 LC-AD 
184 X<>Y 
185 STO IND Y 
186 RCL 01 
187 INT 
188 RCL 00 
189 COLPT 
190 RG*Y 
191 1SG 01 
192 GTO 06 
193 RCL 03 
194 x" 
195 2 E-7 
196 + 

197 CHS 
198 RGVIEW 
199 CHS 
200 BRKPT 
201 "REG " 
202 RDN 
203 X<>Y 
204 APPX 
205 “|-a" 
206 X<>Y 
207 APPX 
208 CLST 
209 AVIEW 
210 RTN 


211aLBL 07 

212 X<>Y 

213 "IMPOSSIBLE" 
214 X=0? 

215 "SINGULIER" 
216 AVIEW 

217 CLST 

218 .END. 
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ALLEZ, LES GOTOI 


Les quelques mots que je vais vous présenter 
sont à proscrire de toutes vos réalisations en 
FORTH ! En effet j'ai écris pour Le langage le 
plus structuré Les fonctions les moins 
structurantes, je veux parler des GOTO 
numériques  (j'espére que C. Moore n'est pas 
abonné à JPC !). 


Pour introduire cette hérésie et pour éviter 
que vous ne bruliez La revue, je vais vous dire 
quelques mots sur Les structures de contrôle en 
FORTH (control structures pour les initiés). 


Commençons par du vague ; Les structures de 
contrôle sont toutes ces "fonctions! : DO ... 
LOOP, 


DO ... +LOOP, IF ... ELSE ... THEN, IF ... 
THEN, BEGIN ... UNTIL, BEGIN ... WHILE ... 
REPEAT, CASE ... OF ... ENDOF ... ENDCASE, LEAVE. 


En fait Le noyau commun à ces mots se résume à 
deux mots, je crois communément appelés BRANCH 
et OBRANCH . 


BRANCH est un branchement inconditionnel, il 
déplace Le pointeur de N octets où N se trouve 
dans La suite des codes compilés juste aprés le 
code de BRANCH (E5D99 en hexa.). OBRANCH lui est 
un branchement conditionnel, il ne déplace le 
pointeur de N octets que si Le test qui le 
précède est négatif, c'est-à-dire si La valeur 
du dessus de La data-stack est nulle. 


Mais Là se pose un problème. Prenons l'exemple 
de 1F ... THEN . 


Lors de La compilation, IF va être transformé 
en un OBRANCH (de code E5D86), mais on a vu 
précédemment  qu'aprés Le OBRANCH devait se 
trouver La longueur du saut en octet, ici, si le 
test est négatif Le pointeur doit enchaîner sur 
THEN, mais on ne sait pas encore où se trouve le 
THEN . La solution à ce problème est en fait 
très naturelle . 


IF Lors de La compilation va déposer dans la 
data-stack 2 nombres : son adresse et Un numéro 
qui Le caractérise et donc quand arrive le 
moment de compiler Le THEN correspondant à notre 





IF, on devra avoir sur Le dessus de la 


data-stack Le numéro qui caractérise IF et son 


adresse. Si THEN ne trouve pas ce numéro (par 
exemple si vous avez mal manipulé Le contenu de 
la  data-stack avec des mots immédiats) vous 
serez avertis par un "conditionals not paired". 
Si par contre (ce qui est Le cas le plus 
fréquent) ce test est vérifié, il est alors 
possible de calculer La longueur du saut, elle 
correspond à la différence entre HERE (adresse 
actuelle du pointeur) et l'adresse qui se trouve 
sur Le dessus de La pile et cette différence on 
La stocke à cette mème adresse, c'est à dire 
juste après Le code de OBRANCH. Voilà, toutes 
les structures de contrôle pendant le 
compile-time fonctionnent sur ce mode ci. 


Revenons sur Les points importants. 


IL faut bien noter que Les nombres laissés sur 
La pile vont par paire : le numéro 
caractéristique et l'adresse du branchement. La 
structure L.I.F.0. de La pile (Last In First 
Out) fait que se trouve sur Le dessus de La pile 
Les codes concernant La structure qui est en 
train d'être compilée. Quatre messages d'erreur 
concernent ces structures : 


“conditionnals not paired # (voir ci-dessus), 
“no DO before LEAVE" qui apparait simplement si 
LEAVE ne trouve pas Le numéro caractéristique de 
DO sur La pile des données, “illegal CASE 
structure" qui apparait pour des raisons 
semblables et "definition not finished" qui 
apparait si Lors de La compilation Le nombre de 
données de La data-stack a varié, ce test permet 
de vérifier que Les structures de contrôle ont 
bien marché, c'est-à-dire que chaque IF ait eu 
son THEN, BEGIN son REPEAT avec le WHILE ou son 
UNTIL ... 


Le fonctionnement de ce test est simple : au 
début de La compilation d'un mot ( : ) on 
retient Le nombre de valeurs dans La data-stack, 
à La fin ( ;: ) on regarde si ce nombre n'a pas 
changé, s'il a changé il est possible que se 
soit l'adresse ou Le numéro caractéristique 
d'une structure de contrôle qui soit en trop, la 
définition ne serait donc pas finie mais il se 
pourrait très bien que vous ayez rajouté à 
l'aide de mots immédiats des données dans la 
pile, mais ça on ne veut pas Le savoir ! 


On peut aussi remarquer que certains de ces 
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mots ont une fonction pendant l'exécution 
(run-time) et d'autres pas. Par exemple LOOP 
pendant La compilation devra calculer l'adresse 
de son DO comme il est expliqué ci-dessus, mais 
devra pendant l'exécution tester Les valeurs de 
la boucle pour savoir s'il faut continuer à 
tourner ou passer à La suite. Par contre THEN 
lors de l'exécution ne fait rien, se qui se 
comprend très bien vu qu'il n'est qu'un point de 
branchement . Vous pouvez Lister Les codes d'un 
mot contenant un IF ... THEN, vous verrez qu'il 
n'y a aucune trace du THEN. 


Voici comme promis les 
caractérisent Les différentes structures de 
contrôle (d'aprés Les 1.D.S. HP-71 
FORTH/Assembleur ROM) : 


numéros qui 


DO (€ 3 }), LEAVE (6), LOOP (aucun),  +LOOP 
(aucun), IF (2), ELSE (2), THEN (aucun), BEGIN 
(1), WHILE (4), REPEAT (eucun), UNTIL (aucun), 
CASE (8), OF (5). 


On peut maintenant comme application de ce qui 
précède créer des GOTO numériques. L'avantage 
(2) de ces GOTO est qu'ils ont une structure non 
bijective, c'est-à-dire qu'à un Label peut 
correspondre autant de GOTO qu'on le désire. 
Nous allons créer des Labels de 0 à 9, dont les 
numéros caractéristiques irons respectivement de 
10 à 19 afin de ne pas interférer avec ceux des 
autres structures de contrôle (qui vont de 1 à 
8). Du fait qu'un label peut servir plusieurs 
fois on ne peut comme avec Les autres structures 
de contrôle perdre son adresse dés qu'un GOTO 
lui fait référence, il nous faut donc créer une 
“grosse variable“ VLBL qui contiendra les 
adresses des différents labels. 


Voyons maintenant Le fonctionnement en détail. 


Sur La HP-41 on faisait GTO 01 sur le 71 on 
fera [ 1 ] GOTO et pour Le label [ 1 ])] LBL. 
Explication de [ X ] GOTO : 


Pour GOTO deux situations se présentent : si 
son Label a déjà ét "compilé", il n'y a qu'à 
compiler Le code de BRANCH (E5D99) et calculer 
La distance qui Le sépare du Label à l'aide de 
HERE et de l'adresse du Label qui se trouve dans 
VLBL. 


Dans Le cas contraire (label non encore 
“compilé"}) Le GOTO doit déposer sur La pile son 


TT 





numéro caractéristique (X+10) et son adresse, 
mais attention, pour ne pas gèner Les autres 
structures de contrôle, ces nombres doivent être 
déposés non au dessus mais en dessous de La pile 
des données ! GOTO doit aussi compiler Le code 
de  BRANCH avec pour l'instant un saut de 
longueur nulle. 


Explication de [ X ] LBL : 


De même pour LBL deux situations se présentent : 
si LBL a déjà ét appelé, il doit calculer et 

stocker toutes Les distances qui Le séparent des 
GOTO qui lui sont adressés, c'est à dire qu'il 
doit chercher dans La pile des données tous les 
numéros caractéristiques qui lui correspondent, 
une fois ce (ou ces) numéro trouvé (en fait il 
suffit de tester un nombre sur deux car tous Les 
nombres vont par paire) Le nombre d'en dessous 
sera l'adresse du GOTO et alors il peut calculer 
les distances dont il a besoin. Mais LBL doit 
aussi stocker son adresse dans VLBL pour les 
GOTO potentiels futurs. 


Si aucun GOTO n'a appelé Le LBL avant qu'il ne 
soit "compilé", seul La dernière étape subsiste 
(stockage de l'adresse de LBL, c'est-à-dire 
HERE, dans VLBL). 


Une dernière chose reste à faire si vous ne 
voulez pas avoir de Memory Lost (je sens que la 
suite vous intéresse 1). IL faut absolument 
remettre à zéro Le contenu de VLBL avant la 
compilation de mots contenant des GOTO . Pour 
cela deux solutions sont possibles. Soit vous Le 
faites "à La main“ à chaque fois que vous 
compilez de tels mots, pour cela il suffit 
d'exécuter Le mot suivant : OVLBL VLBL 32 30 
NFILL ; IMMEDIATE (en hexa.). Soit et cela me 
semble préférable, vous redéfinissez : de 
manière à ce qu'il Le fasse systématiquement, 
vous n'avez qu'à rentrer ce qui suit : 


: G [COMPILE] : VLBL 32 30 NFILL ; IMMEDIATE -D 
1 G NFA 2+ +! tout cela en hexa. et en sachant 
que NFA donne Le NFA du mot dont Le CFA est sur 
Le dessus de La pile des données. 


Voilà, j'en ai fini avec mes GOTO et LBL en 
FORTH et j'espère bien ne jamais voir dans JPC 
des mots Les contenant ! 


Alain Herreman. 
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Nombre= (RO,R1) 


GOC Swap Si Le nb est complexe il 
* est nécessaire de vérifier s'il 


CD1EX il y a suffisemment de 

LEX DEMOCOMP ! a place sur la pile pr y placer 1 
10 #5C D=C À résultat complexe: 
MSG 0 ® sauvegarde D1 ds D(A) 
POLL 0 A=C à Stack pointer -> A(A); 

C=0 À 
ENTRY Demo P= 0 
CHAR 15 LCHEX 12 Longueur prise, sur la 
KEY !CSWAP ! pile, par la partie im. et l'en- 
TOKEN 255 tête d'un nb complexe 


GOSBVL =MEMCHK 


- CDEX A Sauvegarde l'éventuel 
n ns numéro d'erreur ds D(A) 
* Ce LEX a été fait pr vs montrer comment D1=C Restaure D1 
* réaliser une fonction travaillant sur GONC Swap Y a-t-il suffisemment de 
* des nombres complexes. Il n'est toutefois . place? 
* utilisable qu'avec Le module MATHS C=D A Non: récupére Le code 
* (du - tant que ns n'avons pas crée de fonctions ® d'erreur 
* de substitution). GOVLNG =BSERR 
* Le principe du LEX est simple: on veut 
* réaliser 1 fonction qui inverserait Swap A=R1 Partie ré. -> A(W) 
* Les parties réelles et imaginaires d'1 nb AROEX -> RO: 
* complexe. Pr ce faire, on prend le R1=A Partie im. -> R1; 
* nombre qui se trouve sur La pile, on regarde si 
* c'est un complexe ou un réel ® 
* on inverse parties im. et ré.;: il suffit alors * 
* de mettre Le résultät sur La * À ce moment: 
* pile, et Le tour est joué. * P=0 
vd *  HEX mode 
- *  Result=(R1,R0) 
* Di=déjà décrémenté de 16 
=POPIN EQU  #0BD1C . On s'est assuré qu'il y a suffisemment de 
=MEMCHK EQU  #012C7 es pace sur La pile 
=BSERR EQU  #0939A 
zEXPR  EQU  #0F23C 
ENDTXT A=R1 Partie ré. -> A(W) 
DATI=A W -> Stack: 
D1=01- 16 
NIBHEX 811 --- CSWAP( (A,B) ou R ) A=RO Partie im. -> A(W) 
Demo GOSBVL =POPIN  Retire Le nb de La pile DATI=A W -> Stack; 
GOC Complx Est-il complex? D1=01- 2 
C=0 W Non: il faut annuler La LCHEX 0E En tête de nb complexes 
j pseudo-partie imaginaire ajoutée DATI=C B -> Stack; 
RO=C par =POP1N XM=0 Désarme XM 
Complx R1=A GOVLNG =EXPR Exprime Le résultat 
END 


* A ce moment: 
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soscconsnnnssasescenenenemecemmmnetsepéecceesseosre Lodd GOVLNG =OUTELA 
Ledp RINCC 
REL(5) Ledd 
REL(5) Lcdp +++ CONTRAST --- 
LEX ICONTRAST ! Lcd GOSUB Pop Reprend l'éxécution au 
ID #01 ® label Pop 
MSG 0 NIBASC ‘Set cont' Début de La chaîne que 
POLL O0 # l'on va afficher 
NIBASC 'rast:[+ ! . 
ENTRY Lcd NIBASC !- KEY]! . 
CHAR  #D NIBHEX FF Fin du buffer 
KEY !CONTRAST ! 
TOKEN 23 Pop C=RSTK 
D1=C D1 à début de La chaîne 
® " précédente 
® GOSBVL =BF2DSP On l'affiche... 
* L'ordre CONTRAST sert à modifier Le contraste GOSBVL =CRLFND ...Sans delay 
* du 71 tout en voyant Le résultat 
* de cette modification. Cont  GOSBVL =POPBUF Prépare La tache à =RPTKY 
* 2 touches sont actives (et a répétition): GOSBVL =RPTKY L'action de La touche 
+ : permet d'augmenter La valeur du ® doit-elle se répéter? 
contraste jusqu'à un maximum de 15 A=B F (Mets Le code de cette 
® - : permet de diminuer La valeur du , touche en A(A)) 
® contraste jusqu'à un minimum de 0 GOC Cat 
* GOSBVL =SCRLLR Déroule l'affichage; 
* 2 touches sont inactives: ® retourne avec Le code d'une touche 
e <- et -> , en A(A) 
Cat GOSBVL =FINDA Se branche sur une routine 
* Jtes Les autres touches font sortir de notre ® suivant Le code en A(A) 
* routine. Elles sont ôtées du CON(2) key+ Key + 
* buffer de touches si programme s'éxéwcute; REL(3) Read+ 
* laissées sinon. CON(2) key- Key - 
» REL(3) Read- 
* Sachez que ce LEX est si pratique qu'il ne CON(2) 0 Fin de La table des sauts 
* quitte plus ma machine. GOSBVL =NOSCRL RESET NEEDSC 
?2ST#1 13 Retirons Le code de La 
" * touche sur Laquelle on vient d' 
GOYES Contex appuyer si un programme 
zOUTELA EQU #05303 ® est en train d'être éxécuté 
zSCRLLR EQU #0212E GOSBVL =POPBUF (C'est ce que l'on fait) 
=DSPCNT EQU #2E3FE Contex GOVLNG =NXTSTM Sinon Main Loop saura quoi 
=BF2DSP EQU #01C0E s en faire 
=CRLFND EQU #0229E 
=POPBUF EQU #010EE Read+ DO=(5) =DSPCNT 
=NXTSTM EQU #08A48 A=DATO S Valeur du contrast en A(S) 
=RPTKY  EQU #152BA A=A+1 S Peut-on l'augmenter sans 
=FINDA EQU #023E3 ® dépasser 15? 
=NOSCRL EQU #14C8A GOC Cont Non 
key+ EQU #00038 Write DATO=A S Définit La nouvelle valeur 
key- EQU #0002A ® du contraste 
GONC Cont (B.E.T) 
ENDTXT 
Read- DO=(5) =DSPCNT 
A=DATO S 
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A=A-1 S Peut-on diminuer la valeur =RESPTR EQU  #03172 
* du contraste sans risque? =EXPR  EQU #0F23C 
GOC Cont Non =HEXASC EQU #17148 
GONC Write (B.E.T.) Oui =STRHDR EQU #OFO9A 
=NTOKEN EQU #0493B 
=RESCAN EQU  #04A4C 
connnotémntonmseshersbemésréonesetesses 5.025500. =A-MULT EQU #1B349 
=HDFLT EQU #1831B 
=D1C=R3 EQU #03047 
=FNRTN2 EQU #0F219 
LEX ISCANLEX! =CSLWS EQU #OED3D 
=RNDAHX EQU  #136CB 
TITLE Utilitaires \ 01/05/86 \ J-J Moreau =ARGERR EQU #0BF19 
tXFN EQU #00083 
ID #E1 tXWORD  EQU #000EF 
MSG 0 
POLL O0 ENDTXT 
ENTRY Entry 
CHAR  #F Find  P=C 15 Nb d'arguments de La 
ENTRY ScanF ® fonction dans P 
CHAR  #F A=0 A Mets a zero Le paramêtre n 
ENTRY Type ” (l'occurrence d'un mot-clé) 
CHAR  #F ?P= 1 N'y a-t-il qu'un paramétre? 
GOYES Findi 


KEY VENTRYS! 
TOKEN 72 - 


GOSBVL =RNDAHX Non: second paramêtre -> 


A(A); 


- GONC  Argerr  2nd parm <0 IF Argerr 
* ENTRY$S("KEYWORDMT ,n]): D1=01+ 16 D1 à en:tête de La chaîne 
* Renvoie l'adr à laquelle commence La routine ® à tokenizer 
* définissant La n-ième A=A-1 A AA) -> n (l'occurrence) 
* occurence du mot-clé KEYWORD. GOC Argerr  2nd parm 0= IF Argerr 
” Find1 R1=A Sauvegarde n, qui servira 
” de compteur, ds R1 
KEY "TOKEN"! P= 0 
TOKEN 73 GOSBVL =REVPOP Mets La chaîne à tokenizé 
, ® ds Le bon sens 
* TOKEN("KEYWORD"T,n]): CD1EX 
*  Renvoie Le TOKEN de La n-iéme occurrence de D1=C D1Q er char. 
*  KEYWORD sous La forme décimale: =C+A A 
” 1000*1D + TK D=C A DC(A)=(FORSTK) 
» GOSBVL =CSLWS Sauvegarde DO08&D1 ds R3 
CDOEX 
KEY TYPE’ DO=C 
TOKEN 74 R3=C 
” ST=1 O0 On arme STO car on désire 
* TYPE("KEYWORD"I,n] ): “ connaître La type du mot-clé 
* Renvoie Le type de La n-ième occurrence du GOSBVL =NTOKEN Mets A(?2-0)=TOKEN, 
*  mot-clè KEYWORD. ® B(A)=adr d'éxécution (si elle existe) 
* Le type d'un mot clef est définit + bas. Findx ?ST=1 11 Voulait-on tokenizer 1 
® ® variable? 
GOYES Argerr 
=REVPOP EQU #0BD31 2A#0 A Ou bien G0? 
=REV$  EQU #1838E GOYES Find2 Ni L'un ni l'autre 
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Argerr GOVLNG =ARGERR (Remarquez que =IVAERR 


® s'écrit: GOVLNG =ARGERR) A=0 XS A(A)=Id 
C= À 
Find2 ARIEX n (notre compteur) -> A(A); LC(3) 1000 
A=A-1 À n-1 -> A GOSBVL =A-MULT A(A)=1d*1000 
AR1EX Sauvegarde Le nv compteur C=RO CCA)=0TkId 
RTNC Retourne si l'on a fait CSR À 
" n-boucles C=0 M 
GOSBVL =RESPTR Sinon restaure divers CSR L CCA)=TKk 
® pointeurs pr que l'on puisse de nv A=A+C À ACA)=1d*1000 + Tk 
ST=1 0 Utiliser =NTOKEN Fnrtn  GOSBVL =HDFLT  A(A)=Resultat en décimal 
A=C À Information nécessaire à B=A & Sauvegardons-le ds B(W) 
de =NTOKEN -> C(A); GOSBVL =D1C=R3 Mets: Di=Stack pointer, 
GOSBVL =RESCAN À peu près équivalent à #cC(A)=PC 
, GOSBVL =NTOKEN A=B Kw Resultat -> C(W); 
GOTO Findx Boucle ACEX WW PC -> A(A); 
?2ST7=0 4 A-t-on tokenizé une FFN? 
GOYES Pos Non 
NIBHEX 8412 = 9 Oui; indiquons-le en 
ScanF  GOSUB Find Tokenize ® renvoyant 1 nb négatif 
ST=0 4 CPEX 15 
Pos GOVLNG =FNRTN2 
* 
* 
*  Tokens: Avant et après transformation NIBHEX 8412 
RE : : Tk , OTkO0 (Function) Entry  GOSUB Find Calcule l'adr d'éxécution 
*  STMT : Tk , OTKO0 (Statement) * de KEYWORD 
* XFN: TkidB3 , OTkld (XFunct ion) GOSBVL =D1C=R3 Stack pointer -> Di; 
* FFN  : TkidBé , OTkid (Funny Function) DO=C PC -> DO; 
*  XSTMT : TkIdEF , OTkld (XStatement) A=B A . Mets l'adr en question ds 
* WORD : TkIdEF , OTkld (Word) * A(A) 
* 
* * 
* 
LC(2) =tXWORD *  Ci-suit 1 routine HP; elle convertit 1 nb en 
?A=C B * hexa ds A(A) en 1 chaîne 
GOYES Schi++ Go if XWORD/XSTMT * alphanumérique qu'elle place sur La pile. 
LC(2) =tXFN ® 
?A=C B « 
GOYES Schi++ Go if XFN 
C=C+1 B C=0 4 
2A=C B P= 4 
GOYES Schif+ Go if FFN CPEX 15 Indicate 4+1 nibs to 
ASL A Ici si FN ou STMT ® convert in ASCII 
A=0 M Effectue La transformation D=C x Save counter in D(W) 
ae décrite + haut GOSBVL =HEXASC 
ASL À D=D+1 S 
GONC  Schift (B.E.1.) D=D+D S 
Schif+ ST=1 4 Indique que l'on tokenize DSLC 
# une FFN C=D À Compute output string 
Schi++ ASR W Effectue La transformation ® length 
» décrite + haut GOSBVL =STRHDR Prepare header for string 
ASR A ® in B(W) 
Schift RO=A Sauvegarde Le TOKEN P=C 0 
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PS 





P=P-1 String length-1 to P * tout manuellement. Aussi j'ai 
A=B “ * créée CONFIGLX qui fait tout cela pour moi et 
DATI=A WP Write string * peut, qui plus est, afficher 
D1=D1- 16 Move to header * Bonjour: c'est extraordinaire ! En un mot, le 
P= 0 * poll pCONFG est envoyé; CONFIGLX 
GOSBVL =REVS Reverse string * l'attrape au vol: éxéxute Le sous-programme 
GOVLNG =EXPR * BASIC: CONFIG (Merci à Mr Hernest 
* Planque !): retourne à l'assembleur;: rends le 
NIBHEX 8412 * bienheureux poll; et voilà mon 
Type GOSUB Find Détermine Le type de * 71 qui me dis bonjour, avec un contraste de 
K KEYWORD Se 
* Nous n'étonnerons personne en préçisant que Le 
* * sous-programme CONFIG doit 
* * être ds un port indépendant, ainsi que Le LEX: 
* Type: * CONFIGLX (Ou mieux: ds 1 EEPROM HHP) 
* FN/FFN/XFN/WORD : 0 (En fait F pr * Un mot encore: sachez que si vs terminez votre 
* 1 fonction) * ss-prgm CONFIG par ENDALL, Le 
*  STMT/XSTMT : n (O<n<F) * fameux poll PCONFG ne sera pas envoyé à d'autre 
* * Lexs. Par ailleurs, le 
, * procédé que j'ai développé ds mon LEX pr le 
* poll PCONFG peut-être étendu à 
A=0 A * tous Les polls rapides (Pour les autres 
C=ST Type * référez-vs aux IDS vol 1 (un peu 
zC P -> A(A); * avant Le chapitre sur La tokenization)). Sur, 
ST=0 4 Indique qu'on veut 1 * ce bon MEMORY LOST. 
® résultat positif ® 
GOTO Fnrtn e 
connncssnncnnnnmsmnnsmsmnnnmmenesenensmsenmnrecce =CALBIN EQU  #18D8C 
=FORSTK EQU  #2F59E 
=POPUPD EQU  #08F3E 
=PSHUPD EQU  #08F00 
LEX ICONFIGLX! PgmRun EQU  #00000 
z[POLSV EQU  #0003E 
TITLE Utilitaire \ 01/12/86 \ J-J Moreau =zpCLDST EQU  #000FF 
ztCALL EQU  #000F9 
ID #E 1 ztLITRL EQU  #000C4 
MSG 0 ztPRMEN EQU  #000F8 
POLL  Polhnd ztEOL EQU  #000F0 
ENDTXT 
Polhnd LC(2) =pCLDST 
» 28=C B Est-ce Le poll de départ à 
* Le poll-handler qui suit intercepte le poll ed froid ? 
* pCLDST,qui est envoyé après GOYES Confg 
* chaque MEMORY LOST (Ce qui, tout programmeur en RTNSXM Malheureusement non ! 
* assembleur Le sait bien, - 
* arrive des dizaines de fois par jour, si ce Confg C=D A Sauvegarde ce sacré D(A) 
* n'est plus. Je m'arrête Là car on ® ds la pile de retour BASIC 
* va me reprocher de vous effrayer). Car il est A=C À (C'est celle qu'utilise 
* insupportable de devoir mettre s les ordres GOSUB et POP) 
* un contraste de 7, éteindre Le sonnette, passez GOSBVL =PSHUPD (C'est cette routine qui 
* en RADIANS/USER, charger ® se charge de tt le travail) 
* quelques LEX (Comme REPEAT, CONTRAST...)... le C=RSTK Sauvegarde l'adr de retour 
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* vers La routine =FPOLL ds La * 


A=C . même pile ® EN AUCUN CAS 
GOSBVL =PSHUPD e retourner avec XM=0. Le 
CERSTK On recommence avec l'edr % poll doit atteindre TOUS Les LEX. 
® de retour à La routine =CLDST 
A=C A 
GOSBVL =PSHUPD a 
ST=1  PgmRun Puis on allume Le drapeau ® 
» 13 qui indique au routines * Petit exemple de ss-prog: 
® internes qu'on éxécute un * Exemple 1: 
. programme (BASIC ou BIN) - EDIT CONFIG:PORT(0) 
GOSBVL =CALBIN Et l'on se branche sur # 10 BEEP OFF à RADIANS @ USER à CONTRAST 7 
ud cette routine qui, à peu de . 20 END SUB 
“ choses près celle qui est ® 
- chargée d'éxéxuter, en BASIC * Exemple 2: 
un sous-programme. Ci suit ® EDIT TOOTOO:PORT(.05) 
La description du dit ss-prog * 10 SUB CONFIG @ CONTRAST 5 à STACK 16 
CON(2) 20 Longueur du chaïînage ® 15 DISP "Bonjour..." 
CON(2) tCALL Tokenization de CALL CONFIG ® 20 RESTORE 10 @ COPY REPEAT:TAPE(1) 
CONÇ2) tLITRL . ® 25 COPY TOOOTO00:HP71 
NIBASC "CONFIG! .ONFIG ® 
CON(2) tPRMEN . : 
CON(2) tEOL . 
ANT eMeE SI 0 EM eeceseseseseseceesessenmsonsseusececresaggssonasreses 
* 
* A ce point du LEX on espere que l'utilisateur 
* n'a pas trop perturbé Le 71 
* pour que tout aille comme il faudrait (en LEX ‘FINDLEX! 
* faisant des POP, ou des POKE ... 
s TITLE Utilitaires BASIC 
» #01/05/86-01/07/86 \ J-J Moreau 
GOSBVL =POPUPD Remettons ds La pile de ID #E 1 
e retour (interne) les 2 adrs MSG Msgtbl 
C=D À stockées ds La pile de POLL O0 
. retour BASIC ENTRY Find 
RSTK=C CHAR #7 
GOSBVL =POPUPD (C'est cette routine qui KEY "FIND! 
, fait Le travail, car ns sommes TOKEN 75 
C=D A bien fatigués aujourd'hui) 
RSTK=C ® à 
GOSBVL =POPUPD Puis on retaure D(A), que - 
® tout bon chasseur de FPOLL se * L'ordre FIND recherche une chaîne de 
e doit d'attraper puis, en * caractères dans Le programme BASIC 
” bon chasseur qu'il est, * courant. La recherche se fait entre La ligne 
® remettre intact à sa place) * qui suit La Ligne courante et la 
C=-C-1 À Désarmons carry * dernière Ligne du programme. Si La chaîne 
RTNSXM Et renvoyons Le poll en * recherchée est trouvée, La Ligne de 
faisant croire que ns n'avons * plus petit numéro qui La contienne est 
® fait (XM#0) (Un bon * affichée: elle devient La ligne 
" chasseur ne doit pas se faire * courante. Dans Le cas contraire, on renvoie le 
” remarquer). Disons, + * message d'erreur: 
- sérieusement, qu'il ne faut ® “Not Found'! 
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L'instruction: FIND '$&"! affiche La ligne 
20, car elle il y est ecrît: 


* La ligne courante n'est pas changée. CON(2) 1 Numero du dernier message 
# - ds ce LEX 

* L'ordre FIND a été conçu pour faciliter la CON(2) 24 Saut relatif jusqu'au 

* mise au point de programme BASIC. ® message suivant 

* Il est surtout utile à des personnes qui n'ont CON(2) 1 Numero de ce message: 1 
* pas l'editeur de textes et/ou CON(1) 9-1 Longueur du message (en 
* peu de place dans leur machine. s quartets) -1 

* NIBASC ‘Not Foun' 

* Exemple d'utililisation de l'ordre FIND. Tapez: NIBASC ‘d' 

* EDIT TOTO CON(1) 12 Marqueur de fin message 
, 10 A=B Q DESTROY À à GOTO 20 NIBHEX FF Marqueur de fin de table 
; 20 U=V à PRINT #1:A$11,97]18&C$S&"IL pleut" . de message 

* 

* 

* 

* 

* 


C$&"IL pleut Strngp GOVLNG =STRNGP 
REL(5) Strngp --- FIND "Search$" --- 
Find  GOSBVL =EXPEXC Place La chaîne (que l'on 
La nommera: search$) sur la pile 
zAVE=D1 EQU  #18BB8 GOSBVL =REVPOP Inverse l'ordre de ses 
=BF2D0SP EQU  #01C0E " caractères: mets sa longueur en A 
=BLDDSP EQU  #01898 2A=0 A Len(search$)=0 ? 
=BSERR EQU  #0939A GOYES NStrng 
=CK'"ON" EQU  #076AD D0=(5) =S-R1-2 Len(search$) 
zCSLWS5 EQU  #0ED3D DATO=A A -> S-R1-2: 
zCSRWS EQU  #0ED2C CD1EX Start(search$) 
=CURRL EQU  #2F7E8 D1=C 
=CURSRT EQU  #096C1 C=C+A À 
=DSPCNO EQU  #09716 C=C-1 A 
zEXPEXC EQU  #0F186 C=C-1 A (C à dernier char. de 
=FINDL EQU  #OFFE4 » search$ ) 
=GETPRO EQU  #O06BEE DO=D0+ 5 
=GETSTC EQU  #07726 DATO=C A -> S-R1-3: 
=LDCM10 EQU  #04F6F GOSBVL =AVE=D1 Actualise AVMEME d'après 
=LDCOMP EQU #04F69 D1 (Il ne faut pas détruire 
=zLDCSPC EQU  #2F6C1 La chaîne que l'on 
=MAIN3O EQU  #0037E ® recherche (son nom sera Objects) 
=MFERR EQU  #09393 
=NULLP EQU  #07999 GOSBVL =GETPRO Le fichier courant est-il 
=NXTLIN EQU  #10031 privatisé? 
=NXTSTM EQU  #08A48 GOC Mferr 
=OUTBS EQU  #2F58F GOSBVL =GETSTC Est-ce un fichier BASIC? 
=REVPOP EQU  #0BD31 GONC Find20 
=S-R1-2 EQU  #2F88B LC(2) =eFTYPE 
zS-R1-3 EQU  #2F890 Mferr GOVLNG =MFERR 
=STREQL EQU  #1B1EF Find20 GOSBVL =NULLP Est-ce un fichier vide? 
=STRNGP EQU  #03790 GONC Find3Q Non 
=eFTYPE EQU  #0003F NStrng P= 0 
LC(4) eNSTRG 
ENDTXT GOVLNG =BSERR 
Find30 D1=(5) =CURRL CURRL 
eNSTRG EQU  (#5E)*256+1 C=0 A 
Msgtbl CON(2) 1 Numero du 1er message ds C=DAT1 4 -> C(A); 
: GOSBVL =FINDL Calcule l'adresse du début 
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* de La Ligne courante 


GONC  NStrng 
CD1EX C(A) @ #ligne (2 quartets 
® apres L'EOL (OF) ) 
B=C À Sauvegarde l'adr de La 
* Ligne courante dans B(A) 
CD1EX Restore D1 
GOSBVL =NXTLIN Recherche La Ligne qui 
* suit La Ligne courante 
?7C<D A Existe-t-elle? 
GOYES Find15 Oui 
A=B A Non: on commence La 
® recherche à partir de CURRL 
D1=A 
Find15 C=D A C(A) à fin du fichier 
GOSBVL =CSLW5 
CD1EX C(A) à #ligne 
D1=C D1 à #ligne 
Findx R3=C Sauvegarde Findindex dans 
® R3 
GOSBVL =LDCM10 Decompile La Ligne pointée 
. par D1 


A ce moment: 
(OUTBS) à debut de La Ligne decompi Lée 
(c'est: objectS$) 
B(A) = len(object$) 
P = 7? 


S-R1-2 = len(search$) 
S-R1-3 = start(search$) 
R3(9-5)Q #ligne 
R3(4-0)a Find du fichier 


6 6 #4 6 #6 # + # # # # # # * 


L- 0 

A=B À Len(objects$) 
A=A+A À -> A(A); 
D0O=(5) =LDCSPC Start(objectS) 
C=DATO A 

C=C+A A 

R2=C -> R2 

D1=C -> Di: 
DO=(5) =S-R1-3 Start(search$) 
C=DATO A 

R1=C -> Ri: 
DO=D0- 5 

C=DATO A 


ER ÇURURR y, 


* 
* Ce qui suit est La réplique de La fonction HP: 
* POS. 
* On va chercher à savoir si search$ est incluse 
* ds objects. 
* POS commence par comparer les derniers 
* caractères des 2 chaînes, et progresse 
* vers Les adr decroïssantes. 
* 
* 
A=A-C A Len(object$)-len(search$) 
O> 1F Pos5 
GOC Pos5 
B=0 M 
B=A A 
BSRB 
ai (len(object$)-len(search$))/2 -> Scanindex; 
C=C-1 A Len(search$)-1 
P=C 0 RMD(Len(search$)-1,16) -> 
e Partword: 
CSR À DIV(Len(search$)-1,16) 
D=C À -> Wordcount; 
GONC Pos3 (B.E.T.) 
Pos2 C=B À 
RSTK=C Scanindex -> Stack; 
CD1EX 
RSTK=C Scanpt -> Stack; 
CD1EX 
DO=D0+ 2 
D1=D1+ 2 
C=D ë 
B=C À Wordcount -> B; 
GOSBVL =STREQL Search$ Object$ INCLU IF 
C=RSTK 
D1=C Scanpt -> D1; 
CERSTK 
B=C A Scanindex -> B; 
GONC Posé 
=B-1 A Scanindex-1 <0? 1F Pos5 
Pos3 C=R1 Start(search$) 
DO=C -> DO; 
GOC Pos5 
A=DATO B er char. de search$ -> A; 
Posk D1=D1- 2 Scanpt-2 -> Scanpt; 
C=DATI B Object$[Scanpt,Scanpt] -> 
x C: 
?A=C B IF Pos2 : 
GOYES Pos2 
B=B-1 A Scanindex-1 >=0? IF Posé; 
GONC Pos4 
Pos5 C=R2 


JPC 31-32-33 Page 27 





D1=C Start(Object$) -> Scanpt: Find* C=RSTK 


Posé C=R2 D1=C 
A=0 + GOSBVL =BF2DSP 
A=C A C=RSTK Récupère Le # de char. 
CD1EX Scanpt -> C: B=C à 
=A-C A Start(Object$)-Scanpt -> A: GOSBVL =DSPCNO Affiche le buffer de sortie 
ASRB A/2 -> A; C=RO # de fois dont il faudra 
- déplacer Le curseur à droite 
* GOSBVL =CURSRT CURSFL, puis à droite (cf 
s * ci-dessus) 
* Routine principale: GOSBVL =BLDDSP Construit l'affichage 
* Elle definit La conduite à tenir: GOVLNG =MAIN30 Equivalent à: GOVLNG 
» 1: Afficher une ligne qui contienne search$; ® =SCRLLR 
* 2: Passer a la ligne suivante, a condition 
qu'elle existe: ® 
* 3: Renvoyer un message d'erreur ds le cas ® 
. contraire * Decide laquelle des options 2 & 3 l'on va 
. * choisir 
* * 
* 
P= 0 
C=R3 Findindex -> C; Findé0 GOSBVL =CSRW5  Récupère l'adr de La fin 
D1=C D1 à #ligne e du fichier 
2A=0 A POS(Object$,Search$) NOT D=C A -> D: 
as IF Findé0 GOSBVL =NXTLIN Essaie de trouver La Ligne 
GOYES Findé0 , suivant celle que l'on vient 
P= 0 d'analiser 
» ?2C<D A Existe-t-elle? 
* GOYES Find70 
* Option 1: on affiche une ligne. GOTO  NStrng Non: on a donc scruté 
" - ttes Les lignes 
* 
* 
GOSBVL =LDCOMP Decompile La Ligne à D1; is 
, elle devient La ligne courante * Option 2: 
D0O=(5) =OUTBS * On actualise Les pointeurs et l'on recommence 
C=DATO A , 
DO=C DO à er char. de lines ® 
® (i.e. objects) 
D1=(5) =LDCSPC Find70 C=R3 Findindex -> C; 
A=0 M CD1EX Actualise 
A=DAT1 A A à l'espace qui suit le eg Findindex[Findpt,Findpt] 
. #ligne R3=C Sauvegarde Findindex ds R3 
A=A-C A " jusqu'au prochain test 
ASRB Len(line$)-Len(line#) GOSBVL =CK''ON'" 
RO=A -> RO: C=R3 
C=B A 2*Len(line$) D1=C D1 à #ligne 
RSTK=C -> RSTK: GOC Findx+  N'a-t-on pas appuyé sur la 
GOSUB Find* Envoie La sequence nd touche ATTN? 
” d'échappement suivante: GOVLNG =NXTSTM Si: il faut arrêter La 
NIBHEX B1C3 - rechercher, allumer l'indicateur 
NIBASC !>! ® SUSP, ce qui sera très 
NIBHEX B1E3 L bien fait par La routine =NXTSTM 
NIBHEX FF Findx+ GOTO Findx Mais si tout va bien 
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NIBASC ‘EXECUTE! 
CON(2) 19 

TxEn04 NIBHEX F 
NIBASC STARTUPS! 
CON(2) 18 


NDLR : Ce fichier LEX ne respecte pas les 
messages précédemment écrits, ni Le règle 
du premier message. 


D'autre part, Le fichier source qui nous a été 
transmis n'était pas sur 50 colonnes, ce qui 
explique l'aspect parfois négligé de La 
présentation. 


NIBHEX 1FF End of text table 


Exécute une Ligne BASIC. EXECUTE fut écrit pr 
rendre programmable des 
fonctions non programmables. 


+ #+ # + 


* Exemple d'utilisation: 
LEX "ENDUPLEX ! * EDIT TOTO 
s 10 DISP ‘Running... 
CON(2) #E1 id % 20 EXECUTE "FREE:PORT(.01) à PURGE ABC 
CON(2) 16 Lowest Token CONTRAST 7 @ RUN TOTO, 30" 
CON(2) 19 Highest Token e 30 DISP ‘Done! 
CON(5) 0 * 
NIBHEX F No speed table 
REL(4) 1+TxTbSt Text table offset 
CON(4) 0 Message table offset 
CON(5) 0 Poll handler offset =ADHEAD EQU  #181B7 
zD=AVMS EQU  #1A460 
* Main table =DELAYd EQU  #05493 
=EXPEXC EQU  #0F186 
CON(3) (TxEn01)-(TxTbSt) =]/0ALL EQU #1197D 
REL(5) endst =]/0ODAL EQU  #11A41 
NIBHEX F =]/OFND EQU  #118BA 
=]/ORES EQU  #118FF 
CON(3) (TxEn02)-(TxTbSt) =LINEP+ EQU  #02626 
REL(5) endup =MEMERR EQU  #0944D 
NIBHEX D =MOVEU3 EQU  #1B177 
=NXTSTM EQU  #08A48 
CON(3) (TxEn04)-(TxTbSt) =REVPOP EQU  #0BD31 
REL(5S) start =SFLAG? EQU  #1364C 
NIBHEX F =SFLAGS EQU  #135FA 
=STKCHR EQU  #18504 
CON(3) (TxEn03)-(TxTbSt) =STRNGP EQU  #03790 
REL(5) exec =STROVF EQU  #1411A 
NIBHEX D =XXHEAD EQU  #1A44E 
=bSTART EQU  #00808 
* Text table zflPWDN EQU  #000CF 
zflTNOF EQU  #000CD 
TxTbSt zpCONFG EQU  #000FB 
TxEn01 NIBHEX B =pPWROF EQU  #000FC 
NIBASC ENDUPS! DENDUP EQU  #00A00 
CON(2) 16 bXEQ EQU  #00A01 
TxEn02 NIBHEX 9 
NIBASC ‘ENDUP! 
CON(2) 17 Polhnd LC(2) =pCONFG 
TxEn03 NIBHEX D ?28=C B Une reconfiguration 
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PT 


* 


savebf 


rtncc 


xeq 


linep 


strngp 
delayd 


endup 


* 


GOYES 
LC(2) 
?B=C 


GOYES 
RTNSXM 


LC(3) 
GOSBVL 


LC(3) 

GOSBVL 
A=-A-1 
RTNSXM 


LC(3) 
GOSBVL 


GONC 
C=D 
B=C 
LC(2) 
GOSBVL 
GONC 
LC(2) 
GOSBVL 
GOC 
LC(2) 
GOSBVL 


CD1EX 


GOVLNG 


GOVLNG 
GOVLNG 
REL(5) 
REL(5) 
GOSBVL 


savebf 
=pPWROF 
B 


xeq 


DENDUP 
=]/ORES 


détruit 


bXEQ 
=]/ORES 
À 


DENDUP 
=]/OFND 


rtncc 
5 

À 

=f [PWDN 
=SFLAG? 
out 

=f [TNOF 
=SFLAG? 
out 

=f [TNOF 
=SFLAGS 


est-elle en cours? 


La machine souhaite-elle 
s'endormir? 


Non, rien de tout cela 

Ces Lignes, placées ici pr 
gagner de la place, 
restaurent Le registre 


D(A) si chers aux FPOLL 


Evite à DbENDUP d'être 
à La prochaine reconfigu. 


Idem pr bXEQ 
Désarme carry 


Mets D1 à Le début du 


buffer (après l'en-tête) 


(Du moins s'il existe) 
D(A) 
-> B(A); 


fLPWDN est-il éteint? 


fLTNOF est-il allumé? 


Allumons fLTNOF que l'on 


n'intercepte pas pPWROF 1 2nd * 


=LINEP+ 


=STRNGP 
=DELAYd 
delayd 


strngp 
=EXPEXC 


ë 


2*95+2 


DENDUP 
end007 


D1 -> C(A) (D1 est 

inchangé depuis =1/0FND) 
Compile La Ligne BASIC à 
par C(A), puis l'éxécute 


--- ENDUP "BASIC Line! --- 
Mets La ligne à éxécuter 
sur la pile 


Longueur max de cette 
Ligne + 2 quartets pr 00 
-> R3; 


Stocke La Ligne BASIC ds 
DENDUP 


nxtstm GOVLNG 


exec 


REL(5) 
REL(5) 
GOSBVL 
C=0 
C=C-1 


R3=C 
LC(3) 
GOSUB 


GONC 
LC(3) 


GOSBVL 
GOTO 


end007 R2=C 


* 


GOSBVL 


LCHEX 
D1=D1- 
DAT1=C 


ST=1 


GOSUB 
GOSBVL 


CD1EX 
RO=C 
C= 
C=C+1 
C=C+1 
7A>C 


GOYES 
C=R2 
GOSBVL 


RTNCC 


?A<=C 


GOYES 
GOVLNG 


=NXTSTM 


delayd 
strngp 
zEXPEXC 
A 

A 


bXEQ 
end007 
nxtstm 
bXEQ 


=1/OFND 
linep 


=XXHEAD 


00 
2 
B 





--+ EXECUTE "BASIC line! 
Mets La ligne sur La pile 


Longueur max de La ligne 
(65536) -> C(A) 
-> R3: 


Stocke La dite ligne ds 
bXEQ 

Va là-bas si elle ne 
contient aucune instruction 


Mets D1 à début de La ligne 
Exécute Là 


Sauvegarde lL'ID du buffer 
de stockage 

Enlève l'en tête de La 
chaîne placée sur La pile 


Ajoute 1 CR derrière La 


ligne (il faudra se rappeller 


adhead 
=REVPOP 


> > > > 


end010 


z1/ODAL 


end040 
=STROVF 


qu'elle n'est pas 

tokenizée) 

Ajoute un nouvel en tête 

Puis inverse l'ordre des 

caractères de La chaîne 

Pointeur de pile -> C(A) 
-> RO; 


2 -> C(A); 
La Ligne est-elle composée 
d'autre chose que d'un CR? 


Non; 1D -> C(A); 
Détruit Le buffer dont 
L'ID est ds C(A) 
Indique que Le buffer 
n'existe plus 


Longueur de La ligne -> 
B(A); 

Longueur max autorisée -> 
C(A); 

La Ligne n'est-elle pas 
trop longue? 

Non; 

Si. 
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. en 


end040 


end050 


start 


endst 
run 


* 


bf2s10 


bf2s20 


R1=A 
C=R2 
GOSBVL 


GOC 
GOVLNG 


A=RO 
DO=A 


C=R1 
GOSBVL 


RTNSC 


NIBHEX 
LC(3) 
GONC 


NIBHEX 
LC(3) 
AD1EX 
R1=A 
GOSBVL 
CD1EX 
CDOEX 
B=C 


GOSBVL 
A=R1 
D1=A 
GONC 


A=DATO 
LCHEX 
7A=C 
GOYES 
C=A 
GOSBVL 


DO=D0+ 
GONC 


C=B 
DO=C 


=]/OALL 


Longueur de La Ligne -> R1; 
ID -> CA); 
Contracte ou agrandit Le 


buffer pr qu'il ait La taille 


end050 
=MEMERR 


=MOVEU3 


00 
=bSTART 
run 


00 


DENDUP 


=]/OFND 


=D=AVMS 


bf2s20 


spécifiée en A(A) 
Erreur s'il n'y a pas 
suffisemment de place 


DO à début de La Ligne (ss 
forme tokenizée) 

Longueur de La Ligne -> R1; 
Déplace La Ligne de La 
pile ds Le buffer 

Indique que Le buffer 
existe 


--- STARTUPS --- 
(B.E.T.) 


--- ENDUPS$ --- 


Sauvegarde D1 ds R1 


DO à ce qui suit l'en-tête 
Sauvegarde ce pointeur ds 
B(A) 

Mets (AVMEMS) ds D(A) 


D1 = (FORSTK) 
Va si La chaîne contenue 


ds Le buffer a 1 longueur nulle 


B 

00 

B 
bf2s20 
B 
=STKCHR 


Prends 1 char. ds le buffer 


En a-t-on atteint La fin? 
Non 
Oui 
Mets Le car. sur La pile; 


vérifie qu'il y a suf de place 


2 
bf2s10 


À 


adhead GOVLNG =ADHEAD 


* 


NDLR 


exécutables avec l'ordre EXECUTE. 


. Certaines 


Passe au char. suivant 
CR: EST.) 


Ajoute un en-tête a La 
chaîne. 
chaînes ne sont pas 

Par exemple, 


essayez EXECUTE "BEEP"... 





Tx00 


LEX 

CON(2) 
CON(2) 
CON(2) 
REL(5) 


NIBHEX 


REL(4) 


CON(4) 


CON(5) 


CON(3) 
REL(5) 
CON(1) 
CON(1) 
NIBASC 
CON(2) 
NIBHEX 


zBSERR 

=CNFFND 
=CURRST 
=EOLCK 

=EOLXCK 
=FILSK+ 
=FINDF+ 
=FSPECe 


EQU 
EQU 
EQU 


=FSPECp EQU 


=FSPECXx 
=LOCADR 
=MAINST 
=NXTSTM 
=POLL 

=PURGDC 
=RAMROM 
=RESPTR 
=ROMCID 
=ROMFND 
=$S-RO-0 
=$S-RO-1 
=$S-RO-2 
zS-RO-3 
=eDVCNF 
zeFACCS 
=[FNAMh 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


tt 


®SECURELX"! 

1 

79 

79 . 

SEC/U Comme Les TOKENS de SECURE 


et de UNSECURE ne se suivent 
F pas, on ne peut Les 
inclure ds Le même LEX; mais comme 


(Tx00)+1 ces 2 ordres utilisent Les 
mêmes routines, il faut 

0 chaîner Les LEX qui Les 
contiennent, ce qui ne peut pas 

0 faire en utilisant Les 


pseudos -po habituelles (M.M.) 


0 
Secure 
13 

11 
"SECURE 
79 

1FF 


#0939A 
#109AC 
#2F55D 
#O2A7E 
#05405 
#06F1D 
#09F63 
#02F02 
#03CC5 
#09F2D 
#0A611 
#2F558 
#08A48 
#12337 
#05745 
#0A5F7 
#03172 
#O00BFE 
#1102F 
#2F871 
#2r876 
#2F87B 
#2F880 
#00040 
#0003C 
#00010 
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=LFTYPh EQU 
=0FLENR EQU 
=pFPROT EQU 
stALL  EQU 
=tKEYS  EQU 


ENDTXT 


UN/SECURE : 


6 OÙ # #4 # + * 


Secp GOSBVL 
* 

GONC 
Resptr GOVLNG 
* 


Secp10 GOSUB 
GOSBVL 


RTNNC 
LC(2) 


LC(2) 


?A#C 
GOYES 


* 


Secp11 RTNCC 


* 


Fspece GOVLNG 


* 


Purgdc GOVLNG 


#00004 
#00020 
#00008 
#000F8 
#000CF 


=EOLCK 
Secp10 


Z=RESPTR 


Resptr 
=FSPECP 
Nom 


=tALL 


B 
Secp11 


Routine de compilation des nouveaux ordres 


UN/SECURE [Nom de fichier][:<dev id>]/ALL/keys 


t(UN)SECURE suivit d'un 
EOL? 

Non 

Oui: alors il n'y a rien à 
rajouter 


Restaure D1 

t(UN)SECURE suivit d'un 
de fichier et/ou d'un type 
de mémoire? 

Non; peut-ètre alors de 
ALL? 


Si oui, laissons Le 


système finir La décompilation 


=tKEYS 


Fspece 


=FSPECe 


Ne serait-ce pas KEYS 
plutôt que ALL? 


Non: l'utilisateur a donc 
écrit n'importe quoi 

Non; laissons Le système 
agir 


(En définitive ns sommes 


plus rusé que l'utilisateur) 


=PURGDC 


STITLE Exécution de (UN)SECURE 


RRRRRRRRRRRÉRRRRRRRRRRRRRRRRNRRRRRRRRRRRRRRRRRRRRRÉ 


RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRÉRRRRRRARRRRÉRRRÉ 


+ 
** Nom: Secure - Execute l'ordre SECURE 
.. Uecure - Execute l'ordre UNSECURE 


es TTC RE TRISTE nmentininnminiae © — #5 oeittrermnt 


++ 


++ 


** 


** 


** 


** 


** 


** 


** 


** 


** 


+ 


** 


+ 


** 


** 


** 


** 


+ 


** 


++ 


++ 


** 


** 


+ 


** 


** 


+ 


+ 


++ 


** 


** 


** 


** 


+ 


+ 


++ 


** 


** 





Classe:  STEXEC 
But : Execute l'ordre (UN)SECURE 
Contitions d'entrée: 
DO pointant après tSECURE ou 
tUNSECURE 
P=0 


Etat à La sortie: 
via NXTSTM 


Registres/RAM utilisée(s): 


A-D,01,D0,RO-R3 
STMTRO (En entier), S0-S2,S6-S8,S11 
Ss-Pgm: 
CNFFND ,EOLXCK,FILSK+,FINDF+,FSPECx,POLL 
ROMFND 


Nb de registres de la pile de retour utilisés: 


6 
Détails: SECURE [Nom de fichier][:<dev 
id/ALL/keys 
UNSECURE [Nom de fichier] [:<dev 
id>]/ALL/keys 


Application(s) futures: 
La modification de La seule routine Sec95 
permettra d'étendre La 
nouvelle syntaxe de (UN)SECURE à: 
EN/DISABLE, PURGE, HELP... 
Les drapeaux S3-S6,S9-S10 sont inutilisés. 


Création: 17/01/86 J-J Moreau 
routine CAT de N.N. 


D'aprés la 


Re de te ee de ee ee he de ee ee ee ee ee er er ee ee ee ee ee ee ee fe er ee de 


RAR Re de he ee ee de ee ee ee ee ee er re ee ee ee ee ee ee he ee ee 


Secure ST=0 11 


* 


Sec-1 


* 


REL(5) 
REL(5) 


=Purgdc 

zSecp 

ST11=0 uniquement si l'on 
éxécute l'ordre SECURE 

A=DATO B Pour un commentaire 

détailée de cette routine, qui n'a 
GOSBVL =EOLXCK que peu d'intérêt en 
elle-même (On n'y fait que du 


GONC  Sec05 calcul) reportez-vs aux 
IDS vol.3 (Fonction CAT). 
D1=(5) =CURRST Vs y trouverez un 


De né ge 


Sec00 


Sec05 


Bserr 


Sec38 


Sec39 


Sec40 


Fspec+ 
Sec42 


Sec70 


C=DAT1 
D1=C 
GOSUB 


GOTO 


P= 
LCHEX 
p= 
D1=(5) 
DATI=C 
LC(2) 
?A=C 
GOYES 
C=0 
DATI=C 
GOSBVL 
GONC 
GOVLNG 


GOSBVL 
GONC 
?2ST=1 
GOYES 
?C=0 
GOYES 
C=D 
C=C-1 
GONC 
GOTO 


C=C-1 
GOC 
GOSBVL 
CON(2) 
GOC 
?XM=0 
GOYES 
D=D+1 
D=D+D 
GOC 
?A#0 
GOYES 
GOTO 
C=0 
LC(2) 
GONC 


D=D+1 
GONC 
D1=(5) 


commentaire fort détaillé. 
A 


Sec95 (Remarquez que l'on 

n'arrive ici que s'il n'y a qu'un 

Nxtstm seul fichier à 
(dé)sécuriser) 


=FSPECX 
Sec38 
=BSERR 


=FINDF+ 
Sec00 
6 

Bserr 

S 

Bserr 

S 

S 

Sec40 
Sec10 


S 

Sec70 
=zPOLL 
=pFPROT 
Bserr 


Nxtstm 
S 

S 
Fspec+ 
ni 

Sec42 
Fspece 
À 
seFACCS 
Bserr (B.E.7.) 
B 

SecB2 

=$S-R0-3 


DATI=C S 


Sec34 


Sec82 


Secal? 
Secalp 


Nxtstm 
Sec84 
Sec85 


Sec87 
Sec90 


Seccnt 


Sec10 


Sec11 


Eoflch 


Eoflc+ 


GOSUB 
GONC 
C=0 
LC(2) 
GOTO 


GOSUB 


CD1EX 
GOTO 


D1=(5) 
C=DAT1 
?C#0 
GOYES 
GOVLNG 


C=C+1 
GONC 
GOSBVL 
GOC 
A=DAT1 
?7A=0 
GOYES 
CD1EX 
GOTO 


DATI=C 
GOSUB 


Romchk 
Sec90 


zeDVCNF 
Bserr 


Romf - 1 
Sec34 


Sec11 


=S-RO-3 
S 

S 

Sec84 
=NXTSTM 


S 
Seccnt 
=ROMFND 
Nxtstm 


Romchk 


GOTO SecB7 


D1=(5) 
C=DAT1 
D1=(5) 
DATI=C 
GOTO 
A=C 
GOSBVL 
D1=C 
A=DATI 
?A#0 
GOYES 


D1=(5) 


=MAINST 
A 
=$-RO-1 
À 
Eoflc+ 
ä 
=FILSK+ 


B 
B 
Eoflch 


S-RO-2 


DATI=C À 


D1=(5) 
A=DAT1 
DO=A 


S-RO-1 
À 


C=DATO B 


?C=0 
GOYES 
D1=D1- 


BE 
Secal+ 
5 
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oo 


Sec17 DATI=A A SecDn DATI=A P 


D1=A RTN 
GOSUB Sec95 
D1=(5) S-RO-0 
A=DAT1 A Romchk P= 0 (D'après 1 routine HP) 
C=0 A LC(2) =ROMCID 
LC(2) =oFLENh GOSBVL =CNFFND 
A=A+C A 2A=0 X 
DO=A RTNYES 
A=DATO A D1=D1+ 1 
CDOEX B=A X 
A=A+C A C=DAT1 8 
DO=A D=C “ 
C=DATO B D1=D1+ 3 
2C#0 B C=DAT1 3 
GOYES Sec17 D1=D1+ 3 
Secal+ GOTO Secalp C=DAT1 S 
C=C+1 S 
D=C S 
® D1=D1+ 4 
* Voici La routine qui se charge de CSL à 
* (dé)sécuriser un fichier. C'est elle que CSL À 
* l'on aura soin de modifier si l'on veut étendre LCHEX 8 
* Le domaine d'action de AD1EX 
* certaines ordres comme ENABLE... (Cf ci-dessus) D1=C 
* Onn'a en fait que 3 choses à savoir pr ASL # 
* pouvoir modifier ce LEX: ASL # 
, 1- S3-S5, S9-S10 ne sont utiliser ni par ASL KW 
* Sec-1 ni par Sec95 =B X 
* __2- D1 à l'en-tête du fichier traité R1=A 
: 3- RO-R3 ne doivent pas être modifiés RTNCC 
* 
* 
Romf-1 D=D-1 B 
Sec95 CD1EX C(A) à en-tête du fichier C=0 À 
, traité R3=C 
GOSBVL =LOCADR Détermine quel type de GOSUB Romchk 
e mémoire Le contient RTNC 
GOSBVL =RAMROM Est de La mémoire vive GONC  Romf-3  (B.E.T.) 
. (RAM ou IRAM)? Romf -2 GOSBVL =ROMFND 
GOC Sec96 RTNC 
GOTO Nxtstm Romf-3 C=R3 
Sec96 D1=D1+ LFNAMh  D1 à champ S de l'en-tête 2C#D  B 
D1=D1+ LFTYPh : GOYES Romf-2 
A=DAT1 B (B sert à gagner de la RTNCC 
® place) 
LCHEX 1 
2ST=0 11 Secure? 
GOYES SecSe ® 
LCHEX E Enlève La protection du ® 
- fichier * 2ème partie du LEX 
A=A&C P , 
GONC  SecDn (B.E.T.) 
SecSe A=AIC P Protège Le fichier 
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SEC/U 


Tx01 


Uecure 


CON(2) 
CON(2) 
CON(2) 
CON(5) 


NIBHEX 
REL(4) 
CON(4) 
CON(5) 


CON(3) 
REL(5) 


CON(1) 
CON(1) 
NIBASC 
CON(2) 
NIBHEX 


REL(5) 
REL(5) 
ST=1 


GOLONG 


1 

90 

90 

0 Plus aucun LEX n'est 
chainée à celui-ci 

U 

(Tx01)+1 

0 Aucune table de messages 

0 Aucun routine 
d'interception de polls 

0 

Uecure Point d'entrée de l'ordre 
UNSECURE 

13 

15 

UNSECURE ! 

90 

1FF 

Purgdc 

Secp 

11 ST11=1 lorsque l'on 
éxécute l'odre UNSECURE 

Sec-1 Utilise La même routine 


Suite 


LEX 


à l'article de Laurent 
numéro 28) à propos des 
légèrement retouché, 


DATES 


Istria (JPC 
dates, voici Le même 
auquel j'ai ajouté 


l'opération DATE+, une limite supérieure pour la 


date, 
les 


atteintes. 


Cette 
2870, 


limite supérieure est 
ce qui correspond à un 
machine égal à ( hex FFFFF ). Il 


ainsi qu'une erreur ( Out of Range ) quand 
limites supérieures ou 


inférieures sont 


Le 25 Novembre 
nombre de jours 
est possible 





DATE+(D1,N) , Di 
exprimée dans 


étant La date de “départ 
Le format choisi, N étant le 


nombre de jours à ajouter ou à retrancher, selon 
le signe de N. 
Comment ais-je écris La routine DATE+ 7? Tout 


simplement en utilisant La routine DAYYMD qui ne 
semble pas “bugger". En effet, Un examen 
attentif de SETDATE, DATE et DATES permet de 
remarquer que si l'on ne travaille qu'avec des 
dates  alphanumériques, il n'y a pas de 
problèmes, ce qui me lLaïsse supposer que la 
routine boguée est YMDHMS qui est La routine qui 
renvoie La date sous La forme YYMMM. 


François LE GRAND 
NDLR : Actuellemen DATE+ écrase KBD qui précéde ce 
Lex dans numérotation. Nous sollicitons vos avis 


pour ces questions de numérotation. Faut-il, par 
exemple supprimer KBD, Le renuméroter ? 


LEX IDATELX"! 


d'aller plus Loin mais cela compliquerait le 
prgm. D'ici L'an 2870, notre cher Titan sera 
devenu une pièce de musée de l'ère 
préinformatique 1! Si vous désirez faire des 
prévisions à très Long terme, vous pouvez 
toujours me contacter ! 


L'utilisation de DATE+ se fait ainsi : 


ID #E1 
MSG msgtbl 
POLL 0 
BSERR  EQU #0939A 
CSLC7  EQU #1B42F 
FLTDH  EQU #1B223 
DAYYMD  EQU #13335 
ADHEAD  EQU #181B7 
ARGERR  EQU #08F19 
CSLC4  EQU #1B438 
D=AVMS  EQU #1A8460 
FNRTN&  EQU #0F238 
HDFLT  EQU #18318 
IDIVA  EQU #OEC6E 
NXTSTM EQU #08A48 
OUTELA  EQU #05303 
POPIN  EQU #0BD1C 
SFLAG*  EQU #135F3 
SFLAG?  EQU #1364C 
TBLJMC EQU #02426 
YMDDAY  EQU #13304 
fIDATE  EQU -27 
mOoR EQU #0E 101 
ENTRY PLUS 
CHAR  #F 
ENTRY DELTA 


PE 
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msgtbl 


edate 


eoor 


PLUS 


argè 
CB 
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CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
ENDTXT 
CON(2) 
CON(2) 
EQU 
CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
EQU 
CON(2) 
CON(2) 
CON(1) 
CON(1) 
NIBASC 
NIBASC 
CON(1) 
NIBHEX 
NIBHEX 
GOSBVL 
GOSBVL 
ST=0 
GOC 
?XM=0 
GOYES 
GOTO 
ST=1 
=-A 
RO=A 
D1=01+ 
GOSUB 
GOSUB 
C=B 


#F 
EUR 
#D 
WEEKS 
#F 
WEEK 
#F 
AME 
#D 
'DATE+! 
51 
'DDAYS"! 
52 
‘DMY! 
53 
‘DOWS! 
54 
1DOW! 
55 
'MDY! 
56 


00 
16 
00 


"DATE 
12 

01 

31 

01 

11 

11 

‘Out of R'! 
‘ange! 
12 

FF 

8822 
POP1N 
FLTDH 

: 

AA 


CB 
argerr 
1 

A 


16 
FLTDBO 
sflag? 
A 


BA 
BC 


AB 


AC 


WEEKS 


DELTA 


POS 


FIN 
FIN2 


A=RO 
?ST=0 
GOYES 
?A>C 
GOYES 
C=C-A 
GOTO 
C=C+A 
GOSUB 
GOSBVL 
2ST=0 
GOYES 
BCEX 
CDEX 
BCEX 
ST=0 
C=D 
P= 
?2C=0 
GOYES 
ST=1 
CSLC 
CSLC 
C=C+B 
GOSBVL 
C=C+A 
GOSBVL 
2ST#0 
GOYES 
CSLC 
C=C-1 
C=C+1 
GOTO 
NIBHEX 
ST=1 
GOTO 
NIBHEX 
GOSUB 
D1=D1+ 
RO=C 
GOSUB 
A=RO 
?A>C 
GOYES 
C=C-A 
A=C 
GOSBVL 
A=-A-1 
GOTO 
A=A-C 
GOSBVL 
=A 
GOVLNG 
NIBHEX 


BA 


argè 
à 

BC 

A 
TEST2 
DAYYMD 
0 

AB 


À 
À 
À 
0 
mt 
1 
P 


AC 
0 


#4 
CSLC4 
# 
CSLC7 
0 

AD 


X 

X 

FIN2 
811 

2 
WEEKE 
8822 
FLTDBO 
16 


FLTDBO 


W 

POS 

si 

W 
HOFLT 
S 

FIN 
% 
HDFLT 
W 
FNRTN& 
811 








WEEK 
WEEKE 


DOWTXT 


LUN 


MAR 


MER 


JEU 


VEN 


SAM 


DIM 


M16 


M10 
STORE 


ST=0 
GOSUB 
A=C 
A=A-1 
C= 
LCHEX 
GOSBVL 
?ST=1 
GOYES 
CSRC 
C=0 
C=0 
CSRC 
GOTO 
D1=D1+ 
AD1EX 
R1=A 
AD1EX 
GOSBVL 
REL(3) 
REL(3) 
REL(3) 
REL(3) 
REL(3) 
REL(3) 
REL(3) 
LCASC 
P= 
GOTO 
LCASC 
P= 
GOTO 
LCASC 
P= 
GOTO 
LCASC 


GOTO 
LCASC 
P= 
GOTO 
LCASC 
P= 
D1=01- 
GOTO 
LCASC 
P= 
D1=D1- 
GOTO 
D1=D1- 
DATI=C 
GOSBVL 
ST=0 
P= 


è 
FLTDBO 
il 

À 

A 

7 
IDIVA 
2 
DOWTXT 


sflag? 


s0 
FLTDBO 


XS 


FIN2 


s1 


TBLJMC 
DIM 

LUN 

MAR 

MER 

JEU 

VEN 

SAM 
‘Lundi ! 

9 

M10 
‘Mardi! 

9 

M10 
‘Mercredi! 
15 

M16 
Jeudi! 

9 

M10 
‘Vendredi! 
15 

M16 
‘Samedi ! 
11 

12 

STORE 
‘Dimanche! 


NON 


D=AVHS 


0 >JUIL 


GOVLNG 
P= 
LC(2) 
SETHEX 
ST=0 
GOSBVL 
GONC 
ST=1 
RTN 
GOSBVL 
B=A 
GOSUB 
C=B 
?C=0 
GOYES 
CSLC 
CSLC 
CSLC 
D=C 

P= 
C=0 
D=D-C 
CSLC 
CSLC 
B=C 
C=0 
B=B-C 
GOSBVL 


ADHEAD 
0 
fLDATE 


0 


SFLAG? 
SO 
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00 


TEST 


FEVR 


argerr 
PROB 


REST 


TERM 
TEST2 


AZ 
range 


LCHEX 
A=C 
C=C&B 
C=A-C 
A=R1 
p= 
LCHEX 
?D>C 
GOYES 
GONC 
LCHEX 
?D>=C 
GOYES 
GONC 
GOVLNG 
?D>C 
GOYES 
C=8 
R1=C 
R2=A 
C=0 
LCHEX 
SETDEC 
GOSBVL 
?B#0 
GOYES 
A=R2 
?A#0 
GOYES 
LCHEX 
GOSBVL 
?8=0 
GOYES 
GOTO 
C=R1 
B= 
A=R2 
GOSBVL 
CAEX 
C=0 
p= 
LCHEX 
?A<C 
GOYES 
C=0 
C=C-1 
LCHEX 
CAEX 
?C<=A 
RTNYES 
C=RSTK 
LC(4) 
GOVLNG 
REL(5) 


TU VD OU — 


1 

3 

B 
argerr 
TERM 
29 

B 

PROB 
TERM 
ARGERR 
B 
argerr 
B 


# 


IDIVA 
A 
argerr 


B 

REST 
400 
IDIVA 
A 

REST 
argerr 


YMDDAY 
4 

# 

0 

#8D235 

4 

AZ 

# 

À 

#FFFFF 

W . 

W 


mOoR 
BSERR 
WDC 


REL(S) WP 

EUR  LC(2) fIDATE 
GOTO SORTIE 
REL(5) WC 
REL(S) WP 

AME LC(2) fIDATE 
Ps 

SORTIE GOSBVL SFLAG* 
GOVLNG NXTSTM 

WDC GOVLNG OUTELA 

WP RTNCC 


PROGRAMMATION STRUCTUREE 


Le fichier LEX que je vous propose ce mois ci a 
pour but de conférer au Basic l'allure d'un 
langage un peu plus au goût du jour (comme 
Pascal) en Le munissant des structures de 
programme WHILE <expression> ... END VWHILE et 
REPEAT .. UNTIL <expression>. Ces mots 
définissent des blocs de code dont l'exécution 
dépend de la valeur de <expression> comme on le 
verra plus loin. 


IL vous sera désormais possible d'écrire, par 
exemple: 


WHILE KEYDOWN à DISP A$ à END WHILE 

Ce qui est fonctionnellement equivalent à: 

10 DISP A$ à IF KEYDOWN THEN 10 

cependant La première formulation est plus 
claire et rend non significative La numérotation 
des lignes. 

Les mots fournis par ce LEX sont: 

WHILE <expression> 

Si <expression> vaut 0 on poursuit l'exécution 
à l'instruction suivant END WHILE (bloc non 


exécuté), sinon on continue en séquence. 


END WHILE 
Marque La fin du bloc d'instructions. Il y a 
retour au WHILE correspondant pour évaluer à 
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nouveau <expression>. 


REPEAT 
Marque Le début du bloc. 


UNTIL <expression> 

Si <expression> vaut 0, on retourne après 
REPEAT pour executer à nouveau Le bloc. On 
observe donc que ce bloc est exécuté au moins 
une fois alors que dans Le cas de WHILE, Le bloc 
peut ne pas être exécuté du tout. 


LEAVE 

Permet de sortir (définitivement) d'un bloc. 
Après exécution de LEAVE on se retrouve après Le 
END VWHILE ou Le UNTIL correspondant au bloc où 
LEAVE est executé. Par exemple: 

10 WHILE ... 

20 IF .. THEN LEAVE 

30 REPEAT ... UNTIL ... 

40 END WHILE <- on se retrouve ici après LEAVE. 


Note: dans La description qui précède, 
<expression> représente une expression numér i que 
valant 0 (faux) ou autre chose (vrai) - cf 1F. 


Je n'essaierai pas d'expliquer par le menu le 
fonctionnement de l'ensemble, ceci serait 
fastidieux; quelques remarques cependant: 


1- Les messages d'erreur sont Les suivants: 


(WHILE' (225003) devrait être ‘no WHILE!, 
malheureusement, Le premier message d'erreur 
d'un LEX doit avoir une longueur (totale) 
multiple de 16 nibbles, ceci explique ce message 
sibyllin. 

‘Invalid LEAVE!’ (225005) est émis quand il n'y 
a pas eu de début de bloc (WHILE ou REPEAT) ou 
lorsqu'il n'y a pas de fin de bloc (END WHILE ou 
UNTIL). 

‘no END WHILE' (225006) et 'no REPEAT' (225004) 
s'expliquent d'eux memes. 


2- Pour assurer Le fonctionnement de l'ensemble 
des adresses sont stockées sur La "GOSUB stack", 
ceci interdit qu'un RETURN situé à l'intérieur 
d'un bloc renvoie à un GOSUB extérieur à celui-ci. 
En d'autres termes Le code suivant: 


10 GOSUB 100 

20 END 

100 A=0 

100 WHILE 1 ! bloc se repetant indéfiniment 





120 A=A+1 @ 1F A=5 THEN RETURN 
130 END WHILE 


ne permet pas de revenir en Ligne 20 (on 
obtient Le message #Y'RETURN w/o  GOSUB'. Ce 
comportement est conforme aux règles de 
programmation structurée qui imposent une seule 
entrée et une seule sortie pour un bloc de code. 
Si quelqu'un me démontre qu'il vaut mieux 
retourner “proprement" je suis prêt à étudier 
Les modifications requises. 


3- Ces mots réagissent parfaitement en mode 
TRACE FLOW (ce n'est pas le plus simple...). 


&- De même qu'il n'est pas possible d'avoir des 
boucles FOR .. NEXT ‘mal!  imbriquées, il n'est 
pas possible d'avoir des blocs WHILE .. END 
WHILE ou REPEAT .. UNTIL se chevauchant. Par 
exemple: 

WHILE ... REPEAT ... UNTIL ... END VWHILE est 
correcte, 

tandis que: 

WHILE ... REPEAT ... END WHILE ... UNTIL ne 
l'est pas. 


Pour conclure, je souhaite remercier P. David 
pour l'idée d'utiliser La "GOSUB stack' (ce qui 
est beaucoup plus efficace que mes idées 
antérieures) et pour son debugger - dont 
l'utilisation pour ce LEX a été déterminante - 
ainsi que J.J. Dhénin pour son aide dans La mise 
au point. 


LEX STRUC1! 
TITLE Structured programming statements 


tENDW EQU 66 
tWHILE EQU 67 
tREPT EQU 68 
tUNTIL EQU 69 
tLEAVE EQU 70 


CON(2) LEXID 
CON(2) tENDW 
CON(2) tLEAVE 
CON(5) 0 

NIBHEX F 

REL(4) 1+TxTESt 


ID equivalent 
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ER 


MSG 
POLL 


*MAIN T 


CON(3) 
REL(5) 
CON(1) 


CON(3) 
REL(5) 
CON(1) 


CON(3) 
REL(5) 
CON(1) 


CON(3) 
REL(5) 
CON(1) 


CON(3) 
REL(5) 
CON(1) 


TRE dus 


TxTbESt 
TxEn01 


TxEn05 


TxEn03 


TxEn04 


TxEn02 


CON(1) 
NIBASC 
CON(2) 


CON(1) 
NIBASC 
CON(2) 


CON(1) 
NIBASC 
CON(2) 


CON(1) 


NIBASC 


CON(2) 


CON(1) 


ermsgs 


ABLE 


(TxEn01)-(TxTbSt) 
ENDW 
13 


(TxEn02)-(TxTbSt) 
WHILE 
13 


(TxEn03)-(TxTbSt) 
REPT 
13 


(TxEn04)-(TxTbSt) 
UNTIL 
13 


(TxEn05)-(TxTbESt) 
LEAVE 
13 


ABLE 


5 
"END! 
tENDW 


9 
LEAVE! 
tLEAVE 


11 
lREPEAT! 
tREPT 


9 


"UNTIL! 


tUNTIL 


9 


LEXID 

tXWORD 
WHILEt 
REPTt 

eNOWHL 
eNORPT 
eLEAVE 
eINVLD 
oFTYPh 
fBASIC 
eSYSER 
bSTMT 


STMTDO 
STMTD1 
PRGMEN 
TRACEM 
CURRST 


WRDSCN 
FIXP 
TKSCN7 
FIXDC 
REST* 
EOLXC* 
OUTNBC 
POPUPD 
EXPEXC 
POP1N+ 
PSHGSB 
NXTSTM 
BSERR 
MFERR 
RUNRT1 
STOPDC 
TRFROM 
TRTO+ 
1/0FND 
EOLSCN 
MGOSUB 


ermsgs 


DNOWHL 


NIBASC 
CON(2) 


NIBHEX 


EQU 
EQU 
EQU 
EQU 
EQU 


CON(2) 
CON(2) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 


'WHILE! 
tWHILE 


1FF 


#E1 
#EF 
9 


#801 


#2F891 
#2F896 
#2F567 
#2F7B0 
#2F55D 


#02C2A 
#O2A6E 
#08A99 
#05493 
#03035 
#052EC 
#05423 
#08F3E 
#0F186 
#08091 
#08F13 
#08A48 
#0939A 
#09393 
#074E7 
#05303 
#OFE59 
#OFE7B 
#118BA 
#O8AA7 
#1AF01 


eNOWHL 
eLEAVE 


(FNOWHL } - (ENOWHL ) 
eNOWHL 

4 

"WHILE! 

#C 
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fNOWHL 
DNORPT 


fNORPT 


DLEAVE 


fLEAVE 


ENDW 


ENDWO1 
myerr 


ENDWO2 


ENDWO& 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
NIBASC 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 


NIBHEX 


STITLE 
REL(5) 
REL(5) 
CDOEX 
D0=(5) 
DATO=C 
CDOEX 
GOSUB 
GOC 

P= 
LC(1) 
P= 
?C=D 
GOYES 
LC(2) 
p= 
LC(2) 
P= 
GOVLNG 
?ST=1 
GOYES 
LC(3) 
GOSBVL 
B=A 
CD1EX 
?D<C 
GOYES 
C=C+B 
?2D>=C 
GOYES 
C=D 
D0=(5) 


DATO=C A 


CDOEX 
GOSUB 


(FNORPT ) - (bNORPT) 
eNORPT 

8 

Ino REPEA! 

17! 

#C 


(fLEAVE ) - (bLEAVE) 
eLEAVE 
14 
eINVLD 
4 
LEAVE! 
#C 


‘Invalid ! building block 


FF 


END WHILE code 
ENDWd 
ENDWp 


(=STMTD1) 
À 


popupd 
ENDWO1 


15 
WHILEt 
0 
S compare With our type 
ENDWO2 Ok 
eNOWHL 
2 
LEXID 
0 
=BSERR 
13 
ENDWO4 
bSTMT 
=]/OFND 
A buffer length 

ACA] buffer start 
A addr < buffer start 
ENDWO1 
À ALA] past end of buffer 
à. 
ENDWO1 
4 get expression adress 
(STMTDO) 


from prgm 
from kbd, find buffer 


STMTDO à before expression 
DO à expression 
eval 


ENDW10 


ENDW11 


runrt1 


trflck 


GOC 
D0=(5) 
C=DATO 
CDOEX 
GOTO 


CDOEX 
R2=C 


DO=(5) 


A=DATO 
P= 
LC(1) 
GOSUB 
C=R2 
CDOEX 
?ST=0 
GOYES 
GOSUB 
GOC 
CDOEX 
R2=C 
GOSBVL 
C=R2 
DO=C 
GOSBVL 
A=R2 
DO=A 
GOVLNG 


ST=0 
?ST=0 
RTNYES 
?ST=0 
RTNYES 
?ST=1 
RTNYES 
D1=(5) 
P= 
LCHEX 
A=DAT1 
A=A&C 
A=A-1 
D1=(5) 
C=DAT1 
D1=C 
D1=01+ 
A=DAT1 
ASR 
LC(5) 
?A=C 
GOYES 
RTNSC 


ENDW10 


(STMTD1) 


A 


runrt1 





save DO after expression 
in R2 


(=STMTDO) push address before 


expression on GOSUB stack 


Â 
15 i 
WHILEt ‘ 
pshgsb  . 
restore DO after expression 
15 in TRACE mode 
runrt1 no 
trflck check if trace active 
runrt1 no 
=TRFROM FROM part of trace 
=TRTO+ TO part of trace 
restore DO and exit 
=RUNRT1 
10 from mainframe à OFE18 
15 
13 
10 
TRACEM 
0 
è 
B 
p 
p 
=CURRST 
A 
(oFTYPh)-1 
A 
A 
=fBASIC 
A 
clrcy 
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nr 


clrcy RTNCC R2=C 
STITLE WHILE code GOTO WHIL30 
REL(5) WHILEd WHIL23 P= 2 
REL(5) WHILEp LC(2) tENDW 
WHILE GOSUB saveDO save DO before expression #2 3 
® in STMTDO 2A#C WP 
CDOEX GOYES WHIL30 not END WHILE 
GOSUB eval C=R2 
GONC  WHIL20 condition false C=C-1 A record it is END WHILE 
CDOEX ?C=0 A was it ours ? 
R2=C GOYES WHIL40 yes ! 
DO=(5) (STMTDO) get start of expr address R2=C | 
A=DATO A WHIL30 GOSUB eol go to tEOL or tà 
P= 15 GOTO WHIL21 go search again 
LC(1) WHILET 
GOSUB pshgsb WHIL40 DO=D0+ 4 
C=R2 reset DO for proper exit GOTO ENDW10 process trace & go to 
CDOEX nxtstmt 


nxtstm GOVLNG =NXTSTM 


* The condition is false, we have to find the END 


* WHILE matching 


æ 


our WHILE. We have a counter in R2[A) 


* Evaluate expression à DO returns with carry 


* clear if 0 


* use everything, DO à end of expression on rtn 


* incremented for a WHILE eval GOSBVL =EXPEXC 
* and decremented for END WHILE. GOSBVL =POP1N+ 
SETHEX 
WHIL20 C=0 À prepare counter F= 14 
C=C+1 A R2LA] incremented for our GONC eval01 
# VHILE 2A#0 WP 
R2=C GOYES eval02 
?2ST=0 13 from keyboard A=RO 
GOYES WHILOS eval01 ?2A#0 WP 
D1=(5) PRGMEN find end of program GOYES eval02 
C=DAT1 A RTNCC 
GOTO WHILO6 eval02 RTNSC 


WHILOS LC(3) BbSTMT 
GOSBVL =1/0FND 


find end of buffer 


* go to end of Line with DO à tXWORD 


CD1EX 

C=C+A A eol D0=D0- 4 back to length byte 
WHILO6 D=C À store end of scan in D[A] A=0 A go to end of this stmt 
WHIL21 P= 0 A=DATO B Line Length 

LC(2)  tXWORD B=A = 

GOSBVL =TKSCN7 ADOEX 

GOC WHIL22 if found A=A+B À points to EOL or à 

LC(C2) #17 DO=A 

GOVLNG =MFERR RTN 
WHIL22 DO=D0+ 2 

LC(4) (CtWHILE)*#100+(LEXID) pshgsb GOVLNG =PSHGSB 

P= a popupd GOVLNG =POPUPD 

A=DATO WP read token stream 

?2A#C WP saveDO CDOEX 

GOYES WHIL23 not a WHILE DO=(5) (STMTDO) 

C=R2 DATO=C A 

C=C+1 A count one more WHILE RTN 
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UNTIL 


UNT101 


UNT102 


UNT104 


UNT110 


REPT 


STITLE REPEAT ... UNTIL code 

REL(S) WHILEd  parse & decompile = WHILE 
REL(5) WHILEP 
CDOEX 

D0O=(5) (=STMTD1) 
DATO=C A 

GOSUB  popupd 
GOC UNT101 

P= 15 

LC(1) REPTt 

== 0 

CD S 

GOYES 


compare with our type 
UNTIO2 Ok 

LC(2) eNORPT 
GOTO  myerr 
?2ST=z1 13 
GOYES UNTI04 
LC(3) bSTMT 
GOSBVL =1/0FND 
B=A A 
CD1EX 

7D<C A 
GOYES 
C=C+B A 

?D>=C A 

GOYES UNTI01 
C=D A 

DO=(5) (STMTDO) 
DATO=C A 
DO=D0+ 5 

C=DATO A 

CDOEX 
GOSUB 
GONC  UNTI10 

GOTO runrti 

D0O=(5) (STMTDO) restore address after 
REPEAT 


from prgm 
from kbd, find buffer 


buffer length 
ALA] buffer start 
eddr < buffer start 


ALA] past end of buffer 


get expression adress 


save address after REPEAT 
DO à STMTD1 


DO à expression 
eval 


A=DATO A 
R2=A 

P= 15 
LC(1) REPTt 
GOTO ENDW11 perform trace and return 


to Basic 


REL(5) REPTd 
REL(5) REPTP 
ADOEX 

P= 15 
LC(1) REPTt 
GOSUB pshgsb 
CSRC 

CDOEX 


GOTO nxtstm 


STITLE LEAVE statement 
REL(5) REPTd 
REL(5) REPTP 


LEAVE  GOSUB 
GOSUB 
GOC 
P= 
LC(1) 
?C=D 
GOYES 
LC(1) 
?7C=D 
GOYES 
LEAVOI LC(2) 
GOTO 


saveD0 


save DO in STMTDO 


popupd 
LEAVO1 


15 


REPTt 


LEAVO2 
WHILEt 


S 


LEAVO2 
eLEAVE 
myerr 


* Ke use R2[A] as a counter, incremented by 


* REPEAT or 


* WHILE and decremented by UNTIL or END WHILE. 


LEAVO2 C=0 
C=C+1 
R2=C 
?ST=0 
GOYES 
D1=(5) 
C=DATI 
GOTO 
LEAVOS LC(3) 
GOSBVL 
CD1EX 
C=C+A 
LEAVO6 D=C 
D0=(5) 
C=DATO 
CDOEX 
LEAV21 P= 
LC(2) 
GOSBVL 
GOC 
LC(2) 
GOTO 
LEAV22 DO=D0+ 
LC(4) 
P= 
A=DATO 
?A=C 
GOYES 
P= 
LC(2) 
D= 
?A=C 
GOYES 


h 
Â 


13 


LEAVOS 
PRGMEN 


A 


init. compteur 


from keyboard ? 
yes 
get program end 


LEAVO6 


DSTMT 


from kbd, find buffer 


=]/OFND 


A 
A 


store end of scan in D[A] 


(=STMTDO) 


À 


0 


recover DO 


tXWORD 
=TKSCN7 


LEAV22 


if found 


eLEAVE 
myerr 


2 


(tENDW)*#100+(LEXID) 


3 


WP 
WP 


LEAV30 


2 


read token stream 


à END WHILE 


tUNTIL 


3 
WP 


LEAV30 


——————@pe 


it is UNTIL <expr> 
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LEAV32 


LEAV33 


LEAV30 


REPTd 
REPTP 


ENDWp 


ENDWp1 


* 


ENDWd 


WHILEp 
WHILEd 


GOYES 


LC(2) 
P= 
?A=C 
GOYES 
GOSUB 


GOTO 
C=R2 
C=C+1 
R2=C 
GOTO 
C=R2 
C=C-1 
R2=C 
?C#0 
GOYES 
GOSUB 


GOTO 


STITLE 


GOVLNG 
RTNCC 


GOSBVL 
CON(2) 
CON(2) 
CON(2) 
REL(3) 
CON(2) 
p= 

GOVLNG 
D0=D0- 


RTNCC 
LCASC 
P= 
GOSBVL 
GOSBVL 


GOVLNG 
GOVLNG 
END 


tREPT 


LEAV33 


tWHILE 


LEAV33 
eol 


LEAV21 


LEAV32 


LEAV32 
eol 


ENDW10 


it is REPEAT 


it is WHILE 
go to end of this line DO 
à tEOL or ta 


update counter 


update counter 


not finished 

DO à tEOL or ta before 
next stmt 

process trace & go to next 
stmt 


Parse/decompile routines 


=STOPDC 


=WRDSCN 


=tXWORD try WHILE after END 


=LEXID 
tWHILE 
ENDWp1 
00 

0 
=REST* 
5 


if ok 


otherwise, try other ENDs 


if it is END WHILE do not 
output WHILE 


'ELIHW' display WHILE 


9 


=OUTNBC 


zEOLXC* we should be at EOL 


=FIXP 
=FIXDC 
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ASSEMBLER SANS BRUIT 


Je comptais intituler cet article: 

Assembler sans effort 

Mais, pris d'un soudain remords, j'ai pensé 
qu'il valait mieux changer mon titre, car je 
voyais déjà des centaines de lettres de 
protestation arrivées à La rédaction du journal, 
P.David chancelant, P.Guez exténué, M.Martinet 
abattu, J-J Dhénin écoeuré, tout cela par la 
faute d'un imb.... qui avait trouvé un mauvais 
titre, un titre mensongeur, un individu ignoble, 
lequel avait voulu faire accroire aux JPCiliens 
qu'on pouvait assembler sans effort, alors même 
que ce journal ne cessait de nous prouver le 
contraire, à chaque page que nous lLisions! Non, 
devant une telle vision je ne pus qu'affirmer: 
repends-toi, pendant qu'il en est encore temps! 


Mais, me direz-vous , et vous auriez raison, 
pourquoi : 

Assembler sans bruit ? 

Parce qu'avec le LEX que je vous propose , vous 


pourrez décider d'assembler avec ou sans bruit, 
selon que vous validerez La sonnette d'un 
vigoureux: 

BEEP ON 

Ou bien que, plein de rage, vous lui 
mauvais sort: 

BEEP OFF 

J'en entends qui se disent encore que ces id... 
de programmeurs en assembleur ne sont bons qu'à 
écrire des co... . Ils ont tort! Non seulement 
mon LEX vous permet d'assembler avec ou sans 


ferrez un 


bruit, qui plus est il vous permet d'assembler 
sans effort (Sic). 
En effet, il se propose de rémédier au 


principal défaut de l'assembleur HP, fort utile 
par ailleurs : entendez-bien, je ne parle pas de 
sa lenteur, à laquelle, de guerre lasse, on 
finit par s'habituer, mais de l'impossiblité de 
créer un fichier-témoin (listing-file) qui ne 
comportât que des messages d'erreurs. M.Martinet 
à beau nous dire que: 
“[quoiqu'il fasse] il [lui] 
(...] beaucoup de place! 

(Cf JPC 30 Page 4), il n'en est pas toujours de 
même pour nous. Aussi je disais assembler sans 
effort, car il est désormais possible 


reste très souvent 





d'assembler un gros fichier (pour La machine), 
de partir manger pendant que notre 71 travaille 
puis, après une bonne sieste, de de réveiller 
Titan qui s'était endomi, et de lui faire dire 
quelles erreurs il a faites en assemblant. 
Peut-être que La Lecture de l'article coloré qui 
précède ne vous engage pas à me croire, je puis 
vous assurer que c'est bien Là La tâche de mon 
LEX! 


Je tiens à remercier ici S.Vaudenay, qui m'a 
montré comment il me fallait procéder (Cf JPC 28 
Page 36), et J-J Dhénin, pour l'utilisation 
abondante que j'ai pu faire de son matériel. 
L'idée qui est à La base du LEX est fort simple: 
Lorsque l'assembleur veut reporter une erreur, 
il utilise une routine qui est à peu près 
celle-ci: 

" MSGS(xxxxx)" BASICS 

L'assembleur reporte donc toujours une erreur, 
quellequ'elle soit, à l'aide de La fonction 
BASIC : MSGS$ (LEX EDLEX, JPC 30 Page 56). Or 
MSG$ émet un poll, poll qu'il nous suffit donc 
d'intercepter pour envoyer Le message d'erreur, 
non plus vers l'afficheur ni vers un 
hypothét ique fichier-témoin, mais vers un 
fichier que nous aurons crée. 


Une fois Le poll intercepté, il faut s'assurer 
que c'est bien l'assembleur qui a utilisé la 
fonction MSG$. Pour cela, nous commençons par 
vérifier qu'il existe en début de mémoire 
centrale un fichier dénommé FORTHRAM, de type 
FORTH, et qui semble correctement positionné (Cf 
IMS du FORTH Page 50). Si c'est Le cas, nous 
décrétons que ce fichier a bien été crée par un 
des ordres: 

FORTH ou FORTHX 

Puis nous regardons l'état de La variable 
FORTH: ACTIVE: si elle se trouve avoir -2 pour 
valeur , nous pouvons supposer avec raison que 
l'ordre MSG$ a été appellé depuis Le FORTH per 
Le mot FORTH: BASIC$. Reste à savoir si c'est 
l'assembleur qui a exécuté BASIC$. Les IMS du 
FORTH nous apprennent que l'assembleur utilise 
pour ses besoins personnels un tampon (Sic 1) de 
1332 quartets de Long (Cf IMS du FORTH Page 
301). Nous considérerons l'existence d'un tel 
tampon comme suffisante pour prouver que 
l'assembleur est en pleine marche. Dès Lors nous 
pouvons accomplir notre mission. Une difficulté 
s'élève: nous voulons manipuler un fichier 
(Notre fichier-témoin), ce qui nous emènera à 
faire se mouvoir force de choses dans la 


mr 


mémoire, dont certaines sont utilisées par 
L'assembleur. Il nous suffirait de réajualiser 
les pointeurs contenus dans Le tampon dont nous 
avons parlé plus haut; mais nous n'avons pas 
réussi une telle prouesse. Aussi, pour que les 
dits pointeurs n'aient pas à être réactualisés, 
placerons-nous notre fichier en fin de mémoire 
centrale. L'assembleur créeant lui même 2 
fichiers, il nous faut créer le notre après 
qu'il ait crée Les siens. S'il existait déjà 
nous courrons à La catastrophe (Essayez !). 


Publicité: JPC c'est épicé ! 


IL nous faut donc être sur que Lorsque 
l'assemblage commence, il n'existe aucun fichier 
qui ait Le même nom que Le notre, savoir MASERT. 
La meilleure solution consisterait donc à emener 
notre LEX à détruire un éventuel fichier MASERT. 
C'est impossible, rien ne signale, à aucun 
moment, qu'un assemblage va avoir Lieu. Reste 
donc à redéfinir Le mot FORTH: ASSEMBLE comme 
suit: 

+  ASSEMBLE " MASERT" FFIND SWAP IF DROP "“ PURGE 
1MASERT'" BASICX THEN ; 

Mais cela oblige à réinitialiser La FORTHRAM 
après chaque Memory Lost, ce qui ne me semble 
pas une bonne solution. Devra-t-on détruire le 
fichier manuellement ? Pour ma part, je vous 
propose de redéfinir La touche ‘'f6! selon La 
technique utilisée par F. Le Grand (Cf JPC 29 
Page 22): 

DIM A$(100] 

AS=1"  SFLAG -1 à PURGE MASERT @ CFLAG -1" 
BASICX " ! 

DEF KEY 
1f61 ,CHRS(27)&' *ECHRS(27)& 'Q'RASECHRS(27)& 
ASSEMBLE'&CHRS(27)&'R! ;/ \Je ne comprends pas 
comment cela peut marcher (Faîtes maintenant: 
FETCH KEY 'f6! 

le résultôt est assez emusant). Dès Lors, il 
vous suffira pour assembler de passer en FORTH, 
de taper Le nom du fichier à assembler, puis 
d'appuyer sur touches ‘1f6! et f[end/line] (Ex: 
TOTO [f6] [end/line] ). 


IL me reste à vous dire que La fin du LEX n'est 
plus qu'une phase de calcul (Cf LEX MASERLEX ds 
ce même journal), aussi je vous y renvoie pour 
de plus amples commentaires. Sachez enfin que si 
La variable FORTH: LISTING contient Le nom d'un 
fichier, alors mon LEX ne fera rien; qu'il ne 
fera rien non plus si l'option: 

LIST OFF 
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Est active: que si il arrive qu'il ait à 
reporter une erreur, il le fera (Je pense 
qu'alors l'assemblage devrait prendre 
fin);sachez encore que ce LEX émet un bruit, 
pour indiquer qu'une erreur à eu Lieu Lors de 
l'assemblage; sachez aussi qu'il ne quitte plus 
mon 71. 


Voici La fin de cet article. J'espère ne pas 
avoir été trop long, et suffisemment clair. 


Au plaisir de vous lire. 


Jean-Jacques MOREAU (SIG#? PC#149 CRTF#1) 


## 


LEX 'MASERLEX"! 


TITLE Utilitaire pr l'assembleur 


. jj Moreau - <860202-8460214> 
ID #E1 PARIS-ROM 
MSG 0 
POLL Polhnd 
ENDTXT 


=ACTIVE EQU  #2FB0C 
=ASRWS EQU  #O0ED0A 
=AVMEME EQU  #2F599 
=AVMEMS EQU  #2F594 
=BSERR EQU  #0939A 
=CHIRP EQU #0ECSA 
=CRTF  EQU #1160C1 
=CSLWS EQU  #0ED3D 
=DO=AVS EQU  #0982C 
=DOASCI EQU  #09833 
=D=AVME EQU  #14476 
=F-R1-2 EQU  #2F885 
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=FILEF EQU #09FB0 
=FILSK+ EQU  #06F1D 
=FthFil EQU #0E218 
=1/OFND EQU  #1188A 
=MAINST EQU  #2F558 
=MEMERR EQU  #0944D 
=MFERR EQU  #09393 
=MGOSUB EQU  #1AF01 
=OUTBS EQU #2F58F 
=POPUPD EQU  #08F3E 
=PRGFMF EQU  #0A146 
=PSHUPD EQU  #08F00 
=RPLLIN EQU  #013F7 
=SWPBYT EQU  #17A24 
=TBMSG$ EQU  #099AB 
=eEOFIL EQU  #00036 
=0FLAGh EQU  #00014 
=0FTYPh EQU  #00010 
=OLSTNG EQU  #2FC4D 
=OVARID EQU  #2FC43 
=sEOF EQU  #00007 
=SBADRC EQU  #00008 
=pTRANS EQU  #O00EF 
PgmRun EQU  #00000 


* Interceptons Le poll PTRANS. 


Polhnd LC(2) =pTRANS Recherche-t-on 1 


. traducteur? 
?28=C B 
GOYES Rep010 

Repend RTNSXM 


* N'interceptons Le poll pTRANS que si: 

le fichier FORTHRAM est en place: 

il est de type FORTH: 

et correctement placé: 

si MSG$ à été appellée par Le biais de BASICS; 
et si l'assembleur tourne. 


A4 


+ #+ # # * 


Rep010 GOSUB Fth$? N'a-t-on pas été appellé 
* 


par BASICS$? 
GONC  Repend 
GOSUB Asrun?  L'assembleur n'est-il pas 
, en action? 
GOC Repend 


* Sauvegardons ds La pile de retour BASIC: 
*  D(A); 

* R3(4-0) (D1);: 
* R3(9-5) (D0): 

*  RSTK(O) (->=FPOLL); 
*  RSTK(1) (->=MSGS); 


C=D A Sauvegardons D(A) 

GOSUB  pshup+ 

C=RSTK L'adr de retour à =FPOLL 
GOSUB pshup+ 

C=RSTK L'adr de retour à =MSGS$ 
GOSUB pshup+ 

A=R3 Le D1 utilisé par MSGS$ 
GOSUB pshupd 

A=R3 Le DO utilisé par MSGS$ 
GOSBVL =ASRWS 

GOSUB  pshupd 


* Signalons notre passage par un bref message 
* sonore 


GOSBVL =CHIRP BEEP 1! 


Plaçons notre message ds Le tampon de sortie: 
construisons Le message dont Le n est ds 
RO(A); 


puis Le n de Ligne courant du fichier source; 


ajoutons enfin 1 octet supl. si nécessaire 
(LIF1). 


* 
* 
* 
* ajoutons-lui ! , in Line !; 
* 
* 
* 


DO à AVMEMS 

Seute Le futur en-tête de 
la Ligne 

N message -> C(A); 


GOSBVL =DO=AVS 
DO=D0+ 4 


C=RO 

D1=(5) =F-R1-2 
DATI=C A 
GOSBVL =TBMSGS 


-> S-R1-2. 
Place Le msg à partir de 
(AVMEMS )+4 


GOSBVL =D=AVME (AVMEME) -> D(A). 


C=B À Pointeur de fin de msg (1 
quartet après) 
DO=C -> DO: 


* Ajout de ! , in Line ‘ 


Rep030 


DO=D0+ 16 Assurons ns qu'il ya 
suffisemment de place pr ajouter: 


D0=D0+ 6 "in , line ‘. 

CDOEX -> DO. 

?C<D A Y-a-t-il suffisemnent de 
place? 

GOYES Rep030 


GOVLNG =MEMERR 


LCASC ‘il ni , ‘ : msg&! , in Li! 
DATO=C W 
DO=D0+ 16 
LCASC ! en! 
P= 5 
DATO=C WP 


: msg&' , in li'&'ne ! 


DO=D0+ 6 
= 0 


* Ajout du n de ligne 


C=0 À Trouve Le n de ligne 
* stocké ds VAR (Cf I1MS du FORTH) 
LC(2) 35 
GOSUB assbuf 
B=A A N Ligne -> B(A). 
B=B-1 A (En fait l'assembleur est 
si pressé qu'il indique déjà 
le n de La ligne 
suivante: d'où lL'instr. B=8-1 A) 
LCHEX F4 Convertissons Le n de 


GOSBVL =DOASCI 


DO=C 


DO=D0+ 4 


CDOEX 
B=B-C A 


BSRB 
A=B A 
A=A+1 À 


ASRB 
A=A+1 À 


A=A+A À 
A=A+A À 


Ligne en décimal, puis en ASCII, 
supprimons les 0 inutiles, 
et ajoutons Le tt à La suite 


C=0 A du message, en prenant 
* soin d'éliminer tt déchet inutile 
DATO=C B (à cause du format LIF1) 
CDOEX Sauvegardons Le nouveau 
® pointeur de fin de msg 
B=C 4 -> B(A). 
GOSBVL =D0=AVS DO à AVMEMS 
D1=(5) =OUTES 
DATI=C A : LEFT 


* (OUTBS)=(AVMEMS)=Début de La Ligne qu'il faudra 
+ 


mettre ds MASERT. 
Pointeur de début de ligne 
-> C(A) puis DO. 
Pointeur de début de msg 
-> DO puis C(A). 


Longueur du msg=(Pt de fin 
de msg+1)-(Pt de début de msg) 

Longueur en octets 

En fait 1 double 
L'arondit au er entier 
pair, par valeur supérieure 
(Ajoute 4 quartets pr 
l'en-tête) 


Convertit en quartets 


D1=D1+ (=AVMEMS)-(=OUTBS) LET (AVMEMS)=1 


CDOEX 

C=C+A A 
DATI=C A 
A=B A 


GOSBVL =SWPBYT 


DO=D0- 4 


DATO=A 4 


RRQ Q 


quartet après La fin du msg 


Récupère Le double de La 
Longueur du msg 

La met ss format LIF1 

DO à AVMEMS (c'est à dire 
l'en-tête de La ligne) 
Ecrit l'en-tête 
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A ce point on a fabriqué 1 ligne de fichier 
TEXT contenant: 
msg&' , in Line '&n ligne 
Cette ligne se trouve ds Le tampon de sortie, 
c'est à dire entre (OUTBS) et 
(AVMEMS). IL faut maintenant calculer l'adr. de 
La fin du fichier MASERT, et 
déplacer La Ligne du tampon de sortie vers le 
fichier. 


NO OÙ 6  #ù # *# # *# * 


Rep100 LCASC ‘ TRESAM'! Nom du fichier 
A=C # -> A(MW). 
GOSBVL =FILEF Existe-t-il? 
GONC  Rep500 


D=0 M Créons-le en mémoire 
’ centrale 

C=0 W de longueur nulle 

RO=C 

R2=C 

R3=C 

C=C+1 A et de type TEXT 

R1=C 


* Création du fichier TEXT MASERT. 
GOSBVL =CRTF 
GOC Reperr  Reporte 1 éventuel manque 


, de place 
GONC  Rep100 (B.E.T.) Cette fois-ci ns 
* allons trouver le fichier! 


* Trouvons la fin du fichier MASERT. 


Rep500 A=0 4 Recherchons la dernière 


® ligne de MASERT, c'est à dire 
A=A-1 A celle qui n'existe pas 
" (elle a pr n -1) 
* Initialisation des registres pr POSTXT. 
R1=A -1 -> R1(A). 
AD1EX Pointeur de début 
si d'en-tête de fichier 
R3=A -> R3(A). 


GOSUB POSTXT  Trouvons La Ligne -1 
GONC  Rep510 Tout va bien 
?2C#0 A Est-ce 1 erreur sérieuse 
” (Ni EOF ni EOD)? 
GOYES Reperr 
Rep510 ?ST=1 SsBADRC Le fichier MASERT est-il 


” cor rompu? 

GOYES Repbad 

C=0 A 0 -> R3(A) : on insert 1 
” Ligne à La fin du fichier 

CR3EX Pt de début de fichier -> 
” C(A). 

AD1EX Pt de fin de fichier -> 


. AÇA). 


* Transférons La ligne du tampon de sortie à La 
* fin du fichier MASERT. 


GOSBVL =MGOSUB Déplace La ligne, 
réactualise certains pointeurs... 

CON(5) =RPLLIN 

GONC Repext Tout va bien 

GOC Reperr  (B.E.T.) 


Repbad C=0 A Génère 1 l'erreur : ‘Fin 
» de fichier! 

LC(2) =eEOFIL 
Reperr GOVLNG =BSERR 


* Remettons-tt en place: 
*  RSTK(1): 
*  RSTK(O): 
*  R3(9-5); 
*  R3(4-0): 
* DCA) . 


Repext GOSUB popupd Restaure R3(9-5) 
GOSBVL =CSLWS 
R3=C 
GOSUB popupd Restaure R3(4-0) 
C=R3 
C=D = 
R3=C 
GOSUB popupd Restaure RSTK(1) 
RSTK=C 
GOSUB popupd Restaure RSTK(0) 
RSTK=C 
GOSUB popupd  Restaure D(A) (Sic) 

D1=(5) =F-R1-2 Restaure RO (#msg) 

C=DAT1 A 
RO=C 
RTNSXM Rends finalement La main 


pshup+ A=C A 
pshupd GOVLNG =PSHUPD 
popupd GOSBVL =POPUPD 
C=D A 
RTNCC 


* Recherche du buf utilisé par l'ass.: 
* CC=>NtFnd;:CS=>0k 
* Déplacement de D1 d'après C(A) 


assbuf B=C À Sauvegarde C(A) 
D1=(5) =oVARID Recherche du buf 
C=DAT1 A 
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GOSBVL =1/O0FND * Déterminons si l'ass. tourne ou non. 


RTNNC 
C=0 À Asrun? C=0 A 
LCHEX 534 Si ce buf à cette GOSUB assbuf 
Les longueur, c'est que l'ass. doit tourner GONC Asset Pas de buf. => pas d'ass. 
?A=C A C=DAT1 A 
GOYES assbuB C=C-1 À 
RTN C=C-1 A Ne faisons rien Lors de la 
assbuB AD1EX Déplace D1 a 1ère passe (Sic) 
=A+B À RTNC 
D1=A =0 À 
A=DAT1 À Lit La valeur de La var. LC(2) 65 
ps pointée par D1 GOSUB assbuf 
RTNSC A=A-1 À Lors de La 2nd, ne faisons 
* rien non plus si l'option 
RTNC LIST OFF est active 
* Voyons si c'est BASIC$ qui ns a appelé. D1=(5) (=oLSTNG)+2 
s C=DAT1 A 
Fth$? D1=(5) =MAINST C=C-1 8 Ne faisons rien non plus 
C=DAT1 A * s'il existe 1 Listing-file 
D1=C GONC Asset (inverse l'étät de carry) 
A=DATI W RTNCC CO EST.2 6 
LCASC  'MARHTROF! Asset RTNSC (.) 
7A=C W Le îer fichier a-t-il pr 
nom FORTHRAM? 
GOYES Fth010 * Ceci est (encore) 1 routine HP. Elle trouve 1 
RTNNC (B.E.T.) * Ligne ds 1 fichier TEXT. 
Fth010 D1=D1+ 16 * Reportez-vs pr plus de détails aux IDS vol.1. 
A=0 A 
A=DAT1 4 POSTXT D1=A 
LCCS) (C=FthFil}+1 D1=D1+ =0FTYPh 
C=C-A A Est-il de type: D1=D1+ (=oFLAGh)-(=0FTYPh) 
C=C-1 A FORTH? GOSBVL =FILSK+ 
GOC Fth020 D=C A 
C=C-1 À FORTH sécurisé? D1=D1+ 5 
RTNNC Non: désarmons carry CD1EX 
A=R1 
Fth020 D1=D1+ 16 GOSUB  FRCRDr 
D1=D1+ 5 RTNNC 
A=DAT1 À C=0 A 
D1=(5) =MAINST ?7ST=0 =sBADRC 
C=DAT1 A RTNYES 
?A=C A Est-il à sa place? LC(2) =eEOoFiLl 
GOYES Fth030 RTNSC 
RTNNC (B.E.T.) 
Fth030 D1=(5) =ACTIVE 
C=DAT1 À FRCRDr R1=A 
C=C-1 A A=0 k 
C=C-1 À A=A-1 A 
C=C-1 A Armons carry si La valeur RO=A 
* de ACTIVE est -2 ST=0 z=sEOF 
RTN Désarmons carry sinon ST=0 =sBADRC 


FRCR10 GOSUB PRSREC 


RTNC 


LS 
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A=A+1 À 


C=R1 

7A=C A 

GOYES rtncc 

?ST=1 =SsBADRC 

RTNYES 

CDOEX 

GONC  FRCR10 (B.E.T.) 


PRSREC B=0 A 
D1=C 
2C>=D A 
GOYES PRSR10 
D1=D1+ 4 
CD1EX 
270>D A 
GOYES PRSR20 
A=DAT1 
GOSBVL 
P= 


+ 


SWPBYT 


B=B8+1 

P= 

RTNC 

BCEX 

CSRB 

C=C+1 

C=C+C 

C=C+C À 

AD1EX 

D1=A 

C=A+C A 

?2C<=D A 

GOYES rtncc 

ST=1 =sBADRC 
rtncc RINCC 


ee 


> > 


PRSR10 ST=1  =sEOF 
RTNSC 


PRSR20O B=B-1 A 
ST=1 =SBADRC 
RTNSC 
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GLISSEMENTS ET PERMUTATIONS 
Ou DU FAUX Dr JPC 


Salut à vous, JPCiliens ! 


Vous  croyiez que l'ignoble S.V. (1) s'était 
noyé pendant Les vacances, ou bien qu'on l'avait 
pendu, etc... Non seulement il fait encore des 
articles (Comble de malheur, ils traitent 
maintenant de l'assembleur), mais voici que la 
nouvelle année vous Le ramène plus omniprésent 
que jamais ! 

JPCiliens, unissez vos voix, écrivez au 
journal, pour qu'on le raye des membres du club ! 
JPCiliens, La destinée du journal est entre vos 
mains ! 


Cet article fait suite à un article de M.Weil 
(Cf JPC 28 Page 16 Article 2). M. y demandait si 
Les fonctions assembleur suivantes n'existaient 
pas: 

SWAP A,B 

SWAP$ A$,B$ 

SHORT A() 

SHORTS AS$() 


JJ.Dhénin a résolu Le problème du tri numérique 
(Sic 1): voyez à ce sujet son article MATHROM2, 
qui paraitra bientôt (LEX VECTLEX). M'aidant des 
commentaires dont il me fît part à propos de 
VECTLEX, et d'un article qu'il fit paraitre dans 
JPC (Cf JPC 29 Page 29), j'ai crée pour ma part, 
la nuit dernière, les ordres SWAP et SWAPS. Il 
s'agit en fait d'un seul et même ordre: 

SWAP 

Qui se charge de permuter Les valeurs de deux 
variable, numériques, ou alphanumér iques. 


Le résultat de mes travaux n'est guère 
réjouissant: Le gain de temps n'est en fait que 
de 10% pour des variables numériques, de 30% 
pour des variables alphanumériques de 100 octets 
de longueur (2): mais l'ordre SWAP a l'avantage 
de simplifier l'écriture d'un programme BASIC. 
Désormais on remplacera Les lignes suivantes: 

10 C=A à A=B à B=C 

20 C$=A$ à A$=B$ à B$=CS$ 

Par: 

10 SWAP A,B 

20 SWAP A$,8$ 


Cas des variables numér iques: 





pe 


: variable entière (INTEGER) 

“ en simple précision (SHORT) 

en double précision (REAL) 

" complexe, de simple précision (COMPLEX SHORT) 
“ complexe, en double précision (COMPLEX) 


Si A est complexe (ou réelle), B doit 
impérativement être complexe (ou réelle). 
Lorsque l'on fait SWAP A,B , B est d'abord 
placée dans A, puis A dans B. Aussi, si La 
précision de La variable À est inférieure à la 
précision de La variable B, B sera 
redimensionnée de manière à avoir La même 
dimension que A. 


Cas des variables alphanumér iques: 

Ce qui fut dit plus haut à propos des variables 
numér i que s'applique encore aux variables 
alphanumériques (Redimensionnement, ...). 


Remarques : 
Pour ne pas  surcharger La routine de 
compilation de l'ordre SWAP, il est possible de 
taper: 
SWAP A,BS$ 
Mais ceci provoquera à l'exécution l'erreur: 
Data type 
Application: 


---- Programme de tri --- 


On désire trier le tableau de 100 chaînes A$(). 
10 FOR 1=1 TO 100 @ FOR J=1+1 TO 100 

20 1F AS(I1)>A$(J) THEN SWAP AS(1),AS$(J) 

30 NEXT J à NEXT 1! 


Jean-Jacques Moreau (S1G#? PC#149 CRTF#1) 


(1) ndlr: nous avons cherché longtemps pour 
trouver la signification de "S.V.", Cela 
pourrait-être, selon certains, "Singe Volant". 


(2) note: il semble que l'on puisse améliorer 
ces résultâts: voir à ce propos Le commentaire 
du LEX. 





LEX 


ISWAPLEX! 





TITLE Utilitaire BASIC - J.J. Moreau - 


+ #4 # # # *# * 


ID 


MSG 
POLL 


ENTRY 


CHAR 
KEY 


TOKEN 


=ARRYCK 
=AVE=D1 
=COMCK+ 
=D1MSTK 
zDEST 
=DSTRDC 
=EOLCK 
=EXPEX- 
=EXPEXC 
=]VVARe 
=NTOKEN 
=NXTSTM 
=POPMTH 
=POPUPD 
=PSHUPD 
=RESPTR 
=STORE 
=SVTRC 
=SYNTXe 
=VARP 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


<860215-860216> 
64 ave de La 
paix 
93150 Le 
Blanc-Mesnil 
(1) 


48-67-33-04 (S1G#? PC#149 CRTF#1) 


#E1 
0 
0 


Swap 
#0 
SAP! 
71 


#0366A 
#18BB8 
#O32AE 
#1954E 
#0F7B0 
#05280 
#O2A7E 
#0F178 
#0F186 
#02E66 
#0493B 
#08A48 
#1B3DB 
#08F3E 


#03172 
#0F5F8 
#OFA35 
#02E28 
#0350E 
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TT 


PARIS-ROM 


Programmable tout-terrain 


* 


* 


* 


* 


Swapp GOSUB 


Swap+ 


Compile l'ordre SWAP: 
tSWAP tVAR VAR tCOMMA tVAR VAR 
c'est à dire SWAP vari,var2 
ex: SWAP 29$,C0,AS$,U5(1) 


Swap+ 
GOSBVL =NTOKEN 


Compile 1 var. 

Cherche le token suivant 

la var. précédente 

GOSBVL =COMCK+ Est-ce 1 virgule? 

GONC syntxe Non 

GOSUB Swap+ Qui: compile 1 2nd var. 

GOSBVL =EOLCK  N'est-elle pas suivie de: 
tEOL, tTHEN ou t! ? 

GONC  syntxe 

GOVLNG =RESPTR Si: alors tout est compilé 

comme il faut 


ST=0 8 
GOSBVL =VARP 
GOC Swap+5 
ST=1 8 


Suap+S ?ST=0 2 


RTNYES 

GOSBVL =ARRYCK 
?ST=0 8 
RTNYES 
8=8-1 
?8=0 
RTNYES 


Tv >» 


syntxe GOVLNG =SYNTXe 


* 
* 
* 
* 
* 


Swapd GOVLNG =DSTRDC 
* 


Swap 


des DER RS RE ain tm 


Décompile une suite de variable: 
tVAR VAR1 tCOMMA tVAR VAR2 tCOMMA ... tCOMMA 
tVAR VARN 
c'est à dire: VAR1,VAR2,...,VARN 
ex: (DIM JA,B,C2$,...,U9$(10) 


Décompile une Liste de 
variables 


REL(5) Swapd 
REL(5S) Swapp 
GOSUB Swapt 


--- SWAP Var1,Var2 --- 
Initialise Le mode TRACE 
VARS 

Place la valeur de la îère 
var. sur la pile 
Réactualise AVMEME 
Sauvegarde d'adrs pr le 
stackage de La 2nd var. 
Saute La virgule (,) 
Sauvegade le pointeur du 


GOSBVL =EXPEX- 


GOSBVL =DEST 


DO=D0+ 2 
ADOEX 


+ + à + #4 # # »* * + + #4 4 #4 #4 #4 #4 #4 »# *# »* 


+ + + + #4 # # #4 # # »% »* 


tampon d'entrée... 

... dans RO ... 

... et dans la pile de 
retour BASIC 

Restaure ce pointeur 
DO=A . 

GOSBVL =EXPEXC Evalue La 2nd variable 


RO=A 
GOSBVL =PSHUPD 


Il est à noter que EXPEX- ne préserve pas ce 

qui se trouve sous 

l'AVMEME, mais considère que AVMEME=FORSTK, ce 

qui n'est pas 

le cas de EXPEXC qui ne touche en aucun à ce 

qui se trouve entre 

AVMEME et FORSTK, ce qui est très utile si l'on 

veut preserver qqch sur La pile. 

Notons encore que les 2 routines réactualise 

AVMEME avant de rendre la main, et préserve ains 

les informations qu'elles viennent de déposer 

sur la pile. 
GOSBVL =STORE  Stocke La 2nd var. ds La 

1ère (Cf =RECALL, IDS vol.3 

Récupérons maintenant Le 

pointeur du tampon 

de sortie 

DO=C . 


GOSBVL =POPUPD 


Rappel lons que EXPEX- à laissé sur La pile Les 
informations relatives 

à La ère var.;: EXPEXC ceux relative à La 2nd, 
et au-dessus. 

Ces dernières informations ne nous intéressent 
plus aussi allons-nous 

les éliminer, en incrémentant AVMEME. 


GOSUB Swaps Détruit les info. 
inutiles, c'est à dire saute par-dessus... 
GOSBVL =AVE=D1 ... puis réactualise AVMEME 


GOSUB Swapt Initialisons Le mode TRACE 
VARS 

GOSBVL =EXPEXC Rappellons que DO à tampon 
de sortie 


La Ligne précédente peut vs paraître inutile, 
car elle 

sert à mettre sur La pile La valeur de La 2nd 
var., alors qu'on 

vs à expliquer plus haut qu'on enlevait cette 
info. qui ne servait 

à rien. En fait c'est vrai: mais EXPEXC 
initialise Les reg. du CPU pr =DEST. 

Pr rendre SWAP plus rapide, il faudra sans 
doute remplacer ce dernier appel de EXPEXC 





* par un appel a RECALL ou ADDRSS. correspond à un SCRATH LEX, mais n'importe quel 


“ autre numéro fera aussi bien l'affaire. 
GOSBVL =DEST Prépare Le stockage ds La 
" ènd var. 147 octets avec l'entête et Les tables (129 au 
GOSUB Swaps Enlève une fois pr tte Les cat) 
# info. inutiles 114.5 octets en l'insérant dans un LEX incomplet. 
A=DAT1 W Initialise A(W) 
GOSBVL =STORE  Stocke vari ds var2 Je signale, par honnêteté, que l'entrée retenue 
GOVLNG =NXTSTM C'est tout dans La routine M"CMDFND“! n'est pas supportée. 
| d'attaque, en effet, cette routine à l'adresse 
Swaps GOSBVL =D1MSTK D1 à AVMEME #016A1, quatrième Ligne après Le début de la 
GOVLNG =POPMTH Saute Le 1er truc sur la routine. 
” pile 
Je me suis permis cette licence dans Le but de 
Swapt ?ST=0 15 Mode TRACE? commodité (raccourcissement du PGM). en faisant 
RTNYES Non l'hypothèse que La routine, étant supportée à la 
GOVLNG =SVTRC Oui; l'initialise première Ligne, a fort peu de probalité 
d'évoluer dans Les 4 premières Lignes : ïl 
* Comme vous avez pu le constater, il existe en suffit pour s'en convaincre de l'étudier. 
* assembleur un petit nombre de 
* de routines extrêmement puissantes qui Si, cependant, quelqu'esprit scupuleux ne se 
* permettent de travailler sur Les var. contentait pas de cette mise au point et 
* C'est pourquoi ce LEX ne fait qu'une centaine veuille, par rigueur, s'en tenir au supporté, 
* d'octets. j'indique 2 façons de procéder : 


1 - réécrire La routine à partir de la 4ème 
vondéstonéséressshoobisiéoneftenhitesiegespe eat Ligne ! 36 digits ! 


2 - plus commodémment, attaquer La routine au 
début, en plaçant préalablement à  CMDPTR 
LA PILE D'INSTRUCTIONS (#2F6D4) Le nombre de niveaux-1 désiré. 


Tous Les programmes, BASIC ou BIN qui nous ont C. MARCOIN 
été proposés à ce sujet, pèchent par un grave 
défaut : ils “virginisent" La pile d'instructions. 


Certain qu'il est bien utile de conserver les 45F445F402020202 LEX ‘TOTO! 
dernières instructions dont on avait l'usage, 802E File type : LEX 
j'ai écrit ce programme LEX qui ne détruit rien 00 flags et copy code 
lorsqu'on ajoute des niveaux et qui ne supprime 7421 heure 
que les instructions Les plus anciennes 612158 date 
Lorsqu'on réduit La taille de La pile. 60100 offset 

39 ID# 93 
Bien qu'en possession d'un assembleur, je 10 from 01 
préfère assemble “à [La main" ce qui permet, 10 to 01 
entre autre, de tester La validité du programme 00000 Next LEX 00000 
en cours d'élaboration. Aussi ne vous étonnez F CON(1) F 
pas de La présentation du LEX qui est naturelle 7100 CON(4) 0017 
et diffère en cela de celle dont vous avez 0000 MSG 0 
l'habitude. 00000 POLL 0 

#*** MAIN TABLE *** 

Le Lex s'appelle TOTO, mais vous pouvez lui 000 CON(3) 000 
donner un autre nom. J'ai utilisé L'ID #93 qui 32000 REL(5) e 
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5 
354584 
10 

1FF 


A> 8D91FB0 


EB000 
0C000 
8F681F0 
8F32281 
cc 

814 

BAC 

90 

810 

136 

06 

D2 
1F679F2 
15F0 
1590 
18675F2 
EE 

404 

DA 

D7 

306 
8F94381 
D8 

146 
169 

142 

co 

131 

EO 
8F40181 


AF2 
23 
303 


A< CF 


492 


105 
1505 
53F 


A>> 


8F14610 
DA 
146 


CHAR D 

TEXT TABLE *** 
CON(1) 5 
NIBASC STK 
Token 01 
NIBHEX 1FF 


GOVLNG =ARGERR 


REL(5) A* 

REL(S) A** 

GOSBVL =EXPEXC 

GOSBVL =FLTDH 

A=A-1 À 

ASRC 

?A#0 A 

GOYES A> 

ASLC 

CDOEX 

RSTK=C 

C=0 A 

D1=(5) =MAXCMD 

C=DAT1 1 

DATI=A 1 

D0=(5) =CLCBFR 

C=A-C A 

GOC A>> 

A=C À 

B=C À 

LC(1) 6 

GOSBVL =A-MULT 
B=A À 

C=DATO A 

DO=D0+ 10 
=DATO À 

A=A+B A 

D1=A 

A=A-B À 

GOSBVL =MOVED2 
* 

C=0 W 

P= 3 

LC(1) 3 

D=D-1 A 

GOC  A>>> 

* 

D1=01- 6 

DATI=C 6 

GONC A< 

ASRC 

* 

GOSBVL =CMDFND 
=C À 

C=DATO A 


offset decompile 
offset parse 
évalue l'argument 
le converti en HEX 


teste 
la validité 
0<arg<16 


PC dans C 
sauvé dans STK 


C= actuel niveaux-1 
stoore niveaux désirés 


différ. niveaux 
contraction 
multiplicande 
differ. --> D 


multiplication 
bloc à ajouter 
à CLCBFR dans C 
DO à RAWBFR 

à RAWBFR dans A 
nouvel RAWBFR 
dans D1 

actuel RAWBFR 
ajoute bloc 

à CLCBFR 
prépare 000300 


et Le compteur 

à l'underflow 
ajuste pointeurs 
inscription 


contraction 
A(S)= niveaux-1 
A à D1 (adr basse) 


C à CLCBFR 


135 D1=C 


E2 C=C-A A bloc à supprimer 
D5 B=C A pour PRYAD2 
8F86181 GOSBVL =MOVEUA contraction 


A>>> 24 P= &4 

18085F2 D0O=(5) =RAWBFR 
8FA8F80 GOSBVL =PTRAD2 
07 C=RSTK 

136 CDOEX 

8F84A80 GOSBVL =NXTSTM 


PC est récupéré 
retour à BASIC 


A* 8039450 GOVLNG =FIXDC 
A** 8DE6A20 GOVLNG =FIXP 


EDIT ET COPY (v.o.) 


LE BUT 


Partant de La constatation qu'il était pénible 
de taper COPY TOTO:TAPE suivi de EDIT TOTO, j'ai 
réalisé ce Lex. Croyant La chose difficile j'ai 
longtemps hésité... à tort, vous en jugerez par 
VOUS - même . 

D'abord La routine La plus importante: COPYu. 
Dans un espace réservé de 50 quartets (appelé 
Save Stack), mettez Le spécificateur du fichier 
source (0 à 25) suivi de celui du fichier objet 
(26 à 50). Je vous rappelle qu'un spécificateur 
est composé d'un nom de fichier associé à un 
périphérique. IL peut être partiellement ou même 
totalement omis. Par exemple COPY JPC:TAPE sous 
entend TO JPC:MAIN. Donc une fois La Save Stack 
remplie appelez COPYu. Cette routine se charge 
de compléter de manière uni voque les 
spécificateurs et d'effectuer La recopie (Chpil 
inclus). Mieux: si Le fichier est recopié en 
mémoire vive R1 Le pointe en sortie. Or la 
deuxième routine importante est  EDIT80 qui 
permet d'éditer (c'est original je sais!) le 
fichier pointé par D1. Il suffira donc de 
transférer R1 en D1 pour conclure cette 
‘kolozal' commande. Vraiment pas de quoi épater 
la galerie, domage pour moi ! Enfin le principal 
est que ça fonctionne bien. 


LA SYNTAXE 


De La forme EDIT [N1:P1 [TO N2:P2]] 
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Avec: Ni = nom du fichier source. 

P1 = périphérique source. 

N2 = nom du fichier objet. 

P2 = périphérique objet. 
Ce qui est entre crochets peut être omis, et P2 
doit toujours représenter un périphérique 
interne de mémoire (vive  évidement!). Par 
exemple EDIT  TOTO:TAPE(2) TO TOTOS, EDIT 
STAR:PORT(0.01) sont valables maïs EDIT TOTO TO : 
APEC2) est à banir puisque TAPE(2) est un 
périphérique externe. Les messages d'erreur sont 
ceux de COPY + 'Illegal Filespec' pour P2 valide 
mais externe. 


L'ALGORITHME 
| N2:P2= 0? | 
| CEDIT N1:P1) | 
mm L'Y-mmmmmmmmmms 
| | 
non oui 
| | 
v v 
| P2=externe? | | Pi=Rem? | 
<D-mmmmmmmmme NON- mm <> 
| | 
oui | oui 
| | 
sÉssasesaiessess | hole diss 
| INVALID FILE | | | EDIT | 
| SPECIFIER | | [d'origine] 
| 
| 
v 


| Editer Le fichier | 
| recopié | EDIT80 


0 





J'espère que ces explications vous seront 
utiles et que Le Lex EDIT comptera parmi ceux 
qui résident constament dans votre 71. En 
attendant La prochaine réunion je retourne à mes 
IDS. Salutations... 


Jean-Pierre BONDU (PC 33, SIG 4) 


PS: selon une source bien informée, il 
apparaîtrait que SIG signifie  “Sertainement 
Impossible mais G'y arriverai". L'orthographe ne 
serait Là que pour brouiller Les pistes. Affaire 
à suivre... 


LEX ‘EDIT! 

ID 1 

MSG 0 

POLL © 

ENTRY EDITe 

CHAR 5 Non programmable 


KEY ‘EDIT! Ecrase La fonction 
TOKEN 184 originelle. 
ENDTXT 


BSERR  EQU #0939A 

COPYu  EQU #08269 

CRETF+  EQU #084C4 

CURDVC  EQU #0A60B 

CURRST  EQU #2F55D 

EDIT80 EQU #0A5AS5 

EDITWF  EQU #0A533 

EOLCK  EQU #O2A7E 

FINDF+  EQU #09F63 

FLDEVX  EQU #01154 

FSPECe EQU #02F02 * INVALID FILESPEC 
FSPECp EQU  #03CC5 

FSPECX  EQU #09F2D 

NXTSTM EQU #08A48 

RDINFO EQU #0846B 

RESPTR EQU #03172 

SALLOC EQU #01538 

SVINFO EQU #0845A 

WRDSCN  EQU #02C2A 

dCARD  EQU #00007 

eFSPEC EQU #0003A * ILLEGAL FILESPEC 
fBASIC EQU #E214 * Fichier BASIC 
(DATE EQU #00006 
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, Recopier N1 (CPY080) 
EDIT N1  (edit80) 
* 


hhhkhhhhkhtékétéhéhtétéhhkéhkkkhhkkhkékkéhhkRRRRRRRÉRÉ 


* 


CPYO30 LCHEX FO Token <> EOL ? 


2A<C B 

GOYES CPY040 oui 

?2ST=1 SDEST Destination ? 
GOYES CPY045 


* 


* EDIT workfile 
* 


GOVLNG EDITWF 


RRRRRRRRRRRRARRRRRRRRRÉRRRRRRRÉRRRRRARÉARRRRRÉRARRÉRÉÉ 


* COPY ... CARD 


ÉRRRRRRRRRRRRRÉRRRRRRRRRRRRRRRARRRRRRRRÉRRRRRRAR RÉ É RÉ 


LFILSV EQU #00032 

LFLAGh  EQU #00002 

LFLENh  EQU #00005 

LFNAMh  EQU #00010 

LFTYPh  EQU #00004 

[TIMEh  EQU #00004 

oBSsod EQU #00011 

OFLENh  EQU #00020 

SDEST  EQU #00003 

tCARD  EQU #000D0 

tEOL EQU #000F0 

tKEYS  EQU #000CF 

tTO EQU #000F3 
REL(S) EDITP 

EDITe LC(5) LFILSV Réserve 50 quartets 
P= 1 pour La SAVSTK 
GOSBVL SALLOC (= zone de sauvegarde) 
GOC jp INSUFFICENT MEMORY 

CPY010 D=0 n Périphérique initialisé 
LCASC ! ! Caractères 9 et 10 
RO=C du nom du fichier éffacés 
A=DATO B Lit token suivant 


ÉRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR RÉ 


* COPY TO / COPY <spec> TO ... 


RRMRNARRRRRRRRRRRRRRRRÉRRRRRRRRRRRRRRRRRRRRRRRRÉRRRÉ 


LC(2) tTo 

2A#C B Token <> TO ? 
GOYES CPY030 

D0=D0+ 2 Saute TO token 
?2ST=1 SsDEST Destination ? 


GOYES CPYO40 Analyse N2:P2 


RRRRRRRRRRRRRRRARRRRRRRÉRÉRÉRRRRRRRRRRRRRÉRRÉRRÉRRÉRRRÉRÉRÉ 


COPY TO ... 
Pas de fichier source spécifié 
Prend le fichier et spécificateur courant 


+ # *# *# * 


ÉRRRRÉRRRRRRNRRRRRRRARRRRRRRRRRÉRRRRRRRRRRRRRRRRRRRÉ 


CPYO20 GOSUB deffil 
GONC  CPY065 


N1:P1 <-- courant 
B.E.T. 


RRRRRRRRRRRRRÉRRRRRRRRRRRRRRRRRRRRRÉARARRRRRRÉRRÉRRRRÉ 


EDIT avec/sans paramètres / EDIT <spec> EOL 


Si Source 
EDIT workfile 

Sinon (CPY045) 
N2:P2 <-- 0 
Si Ni pas en mémoire 


% tt * # *# # *# * 


CPYO40 LC(2) tCARD CARD token ? 

2A#C B 

GOYES CPY060 non 

LC(1) dCARD 

D=C P Périphériquez= :CARD 
CPYO50 D0O=D0+ 2 Saute token 

A=0 w Pas de nom 

GONC  CPY070 B.E.T. 
CPYO60 GOSUB tkysck  KEYS token ? 

GONC CPY065 oui 

GOSBVL FSPECX Analyse spécificateur 
jp GOC EDIT/9  ILLEGAL FILESPEC 
CPY065 DSLC Spécificateur en D[IA] et 
CPY070 GOSBVL SVINFO nom en A[W]&RO sauvés. 

2ST=1 SsDEST Destination ? 

GOYES CPY071 alors analyse terminée 

ST=1 SsDEST Sinon il reste 

GOTO CPYO10O ... TO N2:P2 à examiner 
CPYO71 GOTO CPY80+ 


Rte de eee he he he he de de de ee de ee de de ee ee ee ee eee ee ee ve ee le eee ee ee ee 
* 


* EDIT N1:P1 


* 
* Entrée: sDEST=1 ; D[W]=0 
he de de ee he ee de de de de de ee eee de de de de de ee ee eee ee le ee ee ee er er hr he he hr ee ee de 


* 


CPYO45 DO=D0+ 2 


A=0 W Pas de fichier objet 
” précisé 
GOSBVL SVINFO N2:P2 <-- 0 


ST=0  sDEST 


GOSBVL RDINFO A[W] <-- N1 ; D[LA] <-- P1 
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EDIT79 


edit80 


DSRC 
C=D 
R3=C 
GOSBVL 
GONC 
?2ST=0 
GOYES 
C=R3 
D=C 
R2=A 
C=0 
LC(2) 
GOSBVL 
GOC 
A=R1 
D1=A 
C=R2 
DAT1=C 
D1=D1+ 
LC(4) 
DATI=C 
D1=D1+ 
D1=D1+ 
=0 
DATI=C 
D1=D1+ 
LC(2) 
DATI=C 
D1=A 


DIS]= spécificateur 
s 


FINDF+  N1 en mémoire ? 
edit80 oui 
6 Ni= 0 ou P1= externe ? 
CPY080 

Crée Le fichier N1 
W en respectant P1 


= 
(oFLENh)}+(oBSsod) 
CRETF+ 

CPYERX 


LFNAMh 
LFNAMh 
fBASIC 
LFTYPh 
CLFTYPh}+(LTIMEh)+(LDATEh)+(LFLAGh) 
LFLENh 
W 

10 

10 
tEOL 

B 


* Edite le fichier pointé par D1 


* 


GOSBVL 
GOVLNG 


EDIT80 


NXTSTM FIN 


RRRRRRRRRRRRRR ARR RER SR RRRRRRRRRRRRÉRRRRRRRRÉRRÉRÉRRRRR 


# # + # # # + 


COPY N1:P1 TO N2:P2 et EDITE N2:P2 


1) Recopie N1:P1 dans N2:P2 
2) Puis édite N2 


Entrée: suppose P2= périph. interne 


RARRRRRRRRRRRRRRRRRRRÉRRRRRRRRRRRRÉRRRRÉRRÉRRRRRÉRÉRÉ 


* 


CPYO80 GOSBVL COPYu 


GOC 
C=R1 


_ D1=C 


GONC 


CPYERX Erreur 
R1 * fichier copié 
D1 <-- R1 

edit80 B.E.T. 


* Teste si P2= Périphérique interne 


* 


oui -> CPY080 


CPY80+ 


CPYERX 


deffil 


tkysck 


* 
ÉRRRRRÉ 


* 


EDITP 


RNMPO5 
EDP10 


RNMP25 


NAMEP7 
LSTPDN 
eolck+ 


* 





non -> ILLEGAL FILESPEC 
* Entrée: D[IA] = 


:P2 


DSRC D(S]= type de P2 

D=D+1 S P2 indéfini ? 

GOC CPYO80 MAIN per défaut 

D=D+D S externe ? 

GONC CPYO80 non È 

LC(4) eFSPEC  ILLEGAL FILE SPECIFIER 
GOVLNG BSERR Basic Error 

GOSBVL CURDVC Trouve périphérique 


GOSBVL FLDEVX 


D1=(5) 
C=DAT1 
D1=C 

* 

=DAT1 
LCASC 
RO=C 
RTNCC 


A=DATO 
LC(2) 
?A#C 
RTNYES 
DO=D0+ 
LCASC 
D=0 
A=C 
RTN 


courant 

CURRST 

À 
D1 * sommet fichier 
courant 

# AIW] <-- nom du fichier 


cf. CPY010 


B 
tKEYS 
B 


è Saute token 
' syek! 

S 

W 


ROUTINE DE PARSE **#*###* 


GOSUB 
GoC 
GONC 
ST=1 
GOSBVL 
GONC 
GOVLNG 


?ST=1 
GOYES 
GOSBVL 
CON(2) 
REL(5) 
CON(2) 
GOVLNG 
RTNCC 
GOSBVL 
RTNC 
GONC 


eee 


eolck+ 
NAMEP7 
EDP10 
8 
FSPECP 
RNMP25 
FSPECe 


B.E.T. 


8 
LSTPDN 
WRDSCN 
tTO 
RNMPOS5 
0 
RESPTR 


EOLCK 


NAMEP7  B.E.T. 
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END 


CONSRUCTION DE LA TABLE DES EQUIVALENCES 


La partie La plus ennuyeuse de La réalisation 
d'un Lex est l'élaboration de La table 
d'équivalence (TOTO EQU #08B24 ...). Je dédicace 
donc ce programme à tous Les Sigouilleurs, en 
espérant que cela Les poussera à n'utiliser que 
des points d'entrée supportés par HP. Son rôle 
est Le suivant: partant d'un source !'vierge!, il 
repère tous les appels faits à des étiquettes 


externes, en cherche les valeurs, et insère 
finalement la table d'équivalence ainsi 
const i tuée. 


Dans ce but vous devrez avoir soit en mémoire 
centrale, soit sur mémoire de masse les 
différents fichiers PENA à PENX plus PENXXX. PEN 
signifie "Points d'Entrée Noms", La dernière 
lette indiquant la première lettre de toutes les 
étiquettes contenues dans ce fichier. Par 
exemple FNRIN1 est rangé dans PENF, NXITSTM dans 
PENN, RNDAHX dans PENR ... Les labels ne 
commencant pas par une lettre de l'alphabet sont 
rangés dans PENXXX. 

Seule Limitation importante de ce programme: le 
source doit résider en mémoire. Je sais que cela 
peut poser problème, mais l'emploi de la si 
pratique fonction SEARCH m'y a contraint. Le 
seul moyen de l'éviter aurait été de concevoir 
ce programme autrement. Plutôt que de chercher 
une instruction particulière dans l'ensemble du 
source, il fallait Lire séquentiellement le 
fichier et tester systémat iquement 
l'appartenance de La mnémonique à un ensemble 
prédéfini. Ce système a deux inconvénients: sa 
lenteur (10 à 15 tests par ligne...) et le fait 
que pour insérer La table d'équivalence il 
faudra bien, de toute manière, recopier le 
source en mémoire un jour. Voila Les raisons de 
mon choix. 


L'utilisation du programme est évidente. Les 
mnémoniques ‘intéréssantes' étant dans des DATA, 
vous pouvez en modifier La liste à votre 
convenance. Quelques explications sur Les 
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fichiers PEN. Chaque enregistrement contient une 
adresse, sur les 5 premiers caractères, suivie 
du label à partir de la colonne 6. Par exemple 
la routine A-MULT débute en 1B349, ADHEAD en 
18187, ce qui donne: 

18349A-MULT 


181B7ADHEAD 


Afin de respecter La  tabulation le zéro 
figurera comme tout autre chiffre. Le plus 
simple est encore que vous vous procuriez ces 
fichiers auprès du club, à l'occasion d'une 
réunion par exemple ( je vous rappelle qu'il y a 
près de 800 points référencés! ). Afin 
d'accélérer sensiblement ce programme j'ai conçu 
deux fonctions en assembleur. MNEMO renvoie la 
position de La mnémonique dans un enregistrement 
donné,  LABEL$ vérifie qu'une étiquette est 
autorisée. Voyez Les sources pour plus de 
renseignements. A titre d'exemple l'analyse du 
fichier  MMLEX, d'un volume de 8K, requiert 
èm40, auxquels il convient d'ajouter Le temps 
d'accès aux fichiers PEN. Je vous dois quelques 
explications à ce sujet. 


Le programme fonctionne de La manière suivante: 

1- Chaque mnémonique pouvant admettre un label 
en paramètre est recherchée (lignes 1120->1140). 
Dans l'enregistrement ainsi localisé on 
recherche Le Label (1150->1170). Sa crédibilité 
est vérifiée dans M“VERLAB'. Si Le test est 
positif il est enregistré, par ordre 
alphabétique, dans Le fichier LKBUF. C'est le 
rôle assigné à  'RECLAB'. IL s'agit donc 
d'établir, dans le fichier LKBUF, La liste de 
tous Les labels externes utilisés. 

2- Suit l'identification et l'enregistrement de 
chacun de ces labels (1440->1540). 


Me sentant gagné par la fatigue du Juste, dans 
La quiétude du devoir accompli, je me permets de 
vous quitter ici et de vous souhaiter bonne 
nuit, 12 coups ayant déja retentis. 


Jean-Pierre BONDU (PC 33, SIG 4) 











Programme "LINK" (construit La table des équivalences) 


Etablit La table d'équivalence d'un fichier source quelconque (LEX,FORTH...) 
Nécéssite: REDUCES$ (cf FORMALEX), LABELS/MNEMO (cf LINKLX), CEDLEX) 

10 INPUT "Source File ":F$ à CALL LINK(FS) 

20 BEEP à END 


1010 DATA GOSBVL, GOVLNG,DO=D0,D1=D1,DAT,DO=(,D1=(,LCC,CONC,ST=,ST#,P=,P#,C=P,CPEX, * 


- CON(5)... Attention aux conflits entre Les routines hpil, via JUMPER, 
et d'autres routines, de même nom, de La ROM du 71. 
1020 INTEGER PO,P1,P2,P3,F,F2 à DIM H,T,MS$[8],S$[8],G$113],E$ 196] 
1030 F=FILESZR(F$S) à 1F F<0 THEN DISP MSG$(-F) @ END 
1040 SFLAG -1 à ON ERROR GOTO 1050 à UNSECURE LKBUF @ PURGE LKBUF 
1050 OFF ERROR à CFLAG -1 à ASSIGN #1 TO F$ 
1060 CALL SRCH(#1,"ENDTXT",2,1,9999,H,E$) 
1070 1F NOT H THEN DISP "ENDTXT introuvable! à END 
1080 DELAY 0 à P1=H+1 à F2=FLAG(2,0) ! P1= * ENDTXT +1 
1090 CALL SRCH(#1,"END",2,P1,9999,H,ES) 
1100 P3=H-1 à 1F NOT H THEN P3=F ! P3= dernière ligne recherche 
1110 H=P1 à CREATE TEXT LKBUF @ ASSIGN #2 TO LKBUF 


1130 :NXLINE': CALL SRCH(#1,MS,2,H+1,P3,H,ES$) ! H= position de M$ dans #1 
1140 IF NOT H THEN :NXMNEMO' ! Pas trouvée => mnémo suivante 
1150 T=POS(ES," ",IP(FP(H)*1000)) ! T= * dernier caractère mnémo +1 
1160 1F NOT T THEN 'NXLINE' ! Toute mnémo recherchée est suivie d'un 'modifier!', donc d'un 
- espace. Dans Le cas contraire il y a erreur, que l'on ne traite pas -> NXLINE. 
L'assembleur se chargera de vous sanctionner !... 
1170 ES=REDUCES(ES(TJ]) à T=POS(ES," ") @ ES$=ES$[1,T-1+NOT T*90] ! E$= Label 


SSSSSSSSSSSSSSSEEETESITESESSSSSSSSSESSSSSSEZSSEZZSSESS============Z== 

1180 ’VERLAB': DIM X$196] & CFLAG 2 

1190 PO=POS(ES$,"(") à P2=POS(ES,")",P0) 

1200 1F NOT PO THEN 1230 

1210 1F NOT P2 THEN DISP MSG$(76)8" in Line";:H @ GOTO 1240 ! '(' trouvée mais pas ')': ERR 
1220 XS=ES[P2+1] à ES=ES(PO+1,P2-1] à GOSUB ‘RECLAB' à E$=X$ à SFLAG 2 @ GOTO 1190 

1230 1F NOT FLAG(2,0) THEN GOSUB "RECLAB' 

1240 DESTROY XS à GOTO 'NXLINE' 


1250 :RECLAB': DISP !.'!: @ ES$=LABELS(ES) @ 1F NOT LEN(E$) THEN RETURN 
- Teste La crédibilité du label E$, l'enregistre si OK, sinon retour immédiat. 
1260 T=SEARCH(ES,1,0,999,2) ! Cherche Label dans LKBUF 
1270 1F NOT FILESZR('LKBUF'}) THEN 'P' 
1280 READ #2,T:S$ à IF T AND S$=E$ THEN 1320 ! Déja présent 
- Insertion du Label E$ dans LKBUF 
1290 FOR T=0 TO FILESZR('LKBUF')-1 @ READ #2,7T;S$ @ S$S=UPRCS(SS) 
1300 1F UPRCS(ES)>S$ THEN INSERT #2,T;ES$ @ GOTO 1320 
1310 NEXT T @ 'P': PRINT #2:ES$ 
1320 RETURN 
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oo 


#*** FIN DE LA PARTIE 1: recherche des labels *** 
#*#** DEBUT DE LA PARTIE 11: étiquettage/insertion *** 


SSSSSSSSESSSSLSESESESSSSSSSSESESSSSSSSTITTITEIZZEZz=S EEE 
1330 'COPYF': ! E$= Label ; M$= fichier de E$ ; S$= fichier précédent 
1340 MS=FNN$S(ES) à IF M$=S$ THEN 1385 ! Fichier présent: inutile de Le recopier 
1350 1F FLAG(2,0) AND LEN(S$) THEN PURGE S$ 

- LEN(S$)<>0 : 'COPYF' a déja été appelé 

FLAG(2)= 1 : S$ n'était pas en mémoire avant utilisation, il faut l'effacer 

1360 S$=M$ àQ IF FILESZR(M$)<0 THEN COPY :TAPE TO M$ Q SFLAG 2 

- FLAG(2)= 1 : ce fichier PEN n'était pas en mémoire, il faudra l'effacer après emploi 
1370 ASSIGN #3 TO M$ 
1385 RETURN 


1400 DEF FNN$(ES) 

1410 F$='PENXXX' à IF NUM(E$)<123 AND NUM(E$)>64 THEN F$(4]=UPRCS(ES$(1,1]) 
1420 FNN$S=F$ ! Définit Le nom du fichier PEN auquel 

1430 END DEF ! appartient Le label E$. 


1440 SUITE’: DISP ! Etiquette Les labels qui sont dans LKBUF 
1450 DESTROY S$ Q FOR T=1 TO FILESZR('LKBUF') 

1460 READ #2,0:E$ à GOSUB 'COPYF' à H=-1 

1470 H=H+1 à H=SEARCH(ES,6,H,999,3) à READ #3,H;G$ 
1480 IF NOT H THEN E$[161='??! à GOTO 1500 

1490 1F G$[6]=ES$ THEN E$[16]='#'8&G$1(1,5] ELSE 1470 
1500 ES$(9,11]='EQU' à INSERT #1,P1;E$ @ DELETE #2,0 
1510 DISP ES$ à NEXTT 

1520 PURGE LKBUF @ IF FLAG(2,F2) THEN PURGE M$ 
1530 DISP MSG$(240011) à INSERT #1,P1;"" 

1540 END SUB 


2000 SUB SRCH(#1,C$,7,D1,D2,H,ES$) à GOTO 'DEBUT! 
- Entrée: 
#1 = canal du fichier source 
C$ = chaîne recherchée 
T = No du champ (1=label, 2=mnémo) 
D1 = Ligne début recherche 
D2 = ligne fin recherche 
Sortie: 
H = réponse au format eee,ppplll 
eee= No enregistrement, ppp= position 1er caractère, LLlz longueur chaîne 
E$ = enregistrement eee 


2020 'LABEL': ! Sortie: H1=0 si C$ n'est pas label dans A$ 
2030 H1=REDUCES(ES$ [1,P-1])=C$ 
2040 RETURN 


2050 'MNEMO': ! Sortie: H1=0 si C$ n'est pas dans Le champ mnémonique 
2060 H1=P AND POS(ES[P,P+5],C$) AND ES[P,P]#1*! 
2070 RETURN 


2080 'DEBUT': H=D1-1 
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s OE 


2090 'NXT': L=H+1 à H=SEARCH(CS,1,L,D2,1) 
2100 1F NOT H THEN ‘FIN' 

2110 READ #1,H:ES$ à P=MNEMO(ES) 

2120 ON T GOSUB 'LABEL!','MNEMO! 

2130 1F NOT H1 THEN :NXT! 


2140 'FIN': END SUB 


de de de de ee ee ee re re re re eee ee er er rc er RE RE R R R R R RR RRRR R RRRR R RRRRR R R R R hr 
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COPYDISK 


Le nom de ce programme est assez éloquent pour 
que je ne vous fasse pas un Long discours à son 
sujet. 


IL s'adresse néanmoins aux heureux possesseurs 
d'un lecteur de disquettes HP-9114 (ou 
éventuellement d'un lecteur de casettes), d'un 
HP-71 et de 2 cordons HP-IL (indispensables...). 
Le module EDTEXT est également nécessaire pour 
ce qui concerne Les instructions INSERT, DELETE, 
REPLACE et FILESZR. Néanmoins il est toujours 
possible de modifier Les lignes dans lesquelles 
celles-ci apparaissent pour Les adapter à votre 
cas particulier; adaptation non prévue par votre 
serviteur, ce qui vous fera un peu travailler 
vos connaissances des fichiers TEXT !... 


Donc pour ceux qui possèdent une unité de 
stockage de masse : chargez ce programme, faites 
RUN et votre ordinateur préféré transfèrera les 
données contenues sur votre disquette ORIGINE 
sur La disquette DESTINATION que vous lui 
présenterez, en fonction de l'espace mémoire 
disponible à ce moment dans votre 71. 


A noter qu'un minimum de 3 Ko est requis pour 
que Le programme démarre. 


Afin d'optimiser La copie des fichiers, le 
programe crée un fichier à partir du catalogue 
de La disquette ORIGINE, ce fichier étant trié 
par ordre décroissant de volume. À chaque passe 
il recherche en premier le fichier le plus 
important qu'il puisse charger en mémoire puis 
essaye de remplir ce qui lui reste de Libre avec 
des fichiers plus petits. Cela étant fait, le 
transfert s'effectue vers La disquette 
DESTINATION. Et ainsi de suite jusqu'à La fin... 


FACULTATIF : si une imprimante est connectée 
sur La boucle, Le catalogue de La disquette 
DESTINATION sera listé avec Les indicateurs 
permettant de savoir si La recopie s'est bien 
déroulée ( * Sauvé, à Type 
inconnu = non recopié ). 


Ce programme n'est certes peut-être pas parfait 
mais remplit bien son office. Je serai donc 
intéressé de connaître les modifications ainsi 
que Les améliorations que vous pourrez lui 
apporter. 


SIMON (P160, 7516) 


eee 


programme FORMLIST 
Listing de programmes sur 3 colonnes par page 
P. DAVASE (P67, T404) 


Ce programme permet d'éditer un Listing ou un 
texte sur 3 colonnes par page, sur imprimante 
829058 + boucle HPIL + HP71B8 de 17k RAM. 


Le programme permet un gain de place important 
sur Le papier Listing, et surtout une diminution 
très sensible du nombre de pages par rapport à 
un Listing courant. 


Le programme peut être facilement adapté à 
toute imprimante. Il n'est pas optimisé dans son 
écriture ,et ne comporte pas de fonction 
provenant de fichier LEX, ceci pour permettre 
une adaptation plus abordable. Un défaut de 
jeunesse à signaler : La césure est automatique, 
arbitraire, sur n'importe quoi de préférence, 
mais ce programme n'est pas un traitement de 
texte,alors......... 


Les fichiers texte sont utilisables directement 
Les fichiers basic doivent êtres transformés en 
texte avant édition. Ce programme édite du 
texte, tout Le texte, rien que du texte. 

Voici le détail des opérations. 


LIGNE COMMENTAIRES 


0020 initialisation à modeler suivant les 
habi tudes 

0030 nettoyage mémoire avant Les grands travaux 
le flag-1 annule l'éventuel message d'erreur 
qu'envoie TITAN quand on veut lui faire 
purger du vide ... 

0040 entrée du nom de programme a éditer 

0050 on pourra adapter cette Ligne pour copier 
directement un programme en provenance d'une 
mémoire de masse qq. (pour Les programmes 
importants par exemple) fichier BAK pour ne 
pas travailler sur l'original 


me DO TS — 


0060 transposition de BAK en fichier texte 

0070 initialisation des variables 
A$ en lecture sur le fichier a lister et 
dupliquer en BAK. B1-B2-B3$ en écriture sur 

fichier temporaire FTEXT 

0080 FTEXT= fichier temporaire de stockage des 
Lignes formattées 

0090 ouverture des canaux respectifs 

0110 boucle de traitement des lignes une par 
une soit: 

en lecture une Ligne maxi de 96 
caractères en écriture 3 Lignes de 40 
caractères maxi 

0120 si fin de fichier --- on édite 

0130 lecture du premier enregistrement du 
fichier BAK 

0150 on va analyser Le problème...... 

0160 pour ne pas se retrouver rapidement avec 
un beau memory full il faut pour chaque Ligne 
traitée: 

écrire les Lignes formattées sur FTEXT 

et supprimer La Ligne étudiée de BAK 
encore le principe des vases 
comuniquants avec en plus un robinet qui 
fuit (L'interposition du caractère 
séparatif chr$(0) et des blancs de 
tabulation) attention donc car le fichier 
final FTEXT sera légèrement plus important 
que Le fichier origine BAK 

0170 programme d'édition et de remise en état 
de La mémoire 

0180 on purge Le fichier origine (BAK) et son 
canal (#1) 

0190 préparation imprimante 82905B et boucle HPIL 

0200 passage en mode 132 colonnes par ligne 

0210 Nizîère ligne a éditer en 1ère colonne 
N2=59ème ligne a éditer en première colonne 

0220 de la première à La dernière Ligne de La 
1ère colonne 

0230 si fin du fichier ,arrêt de l'édition 

0240 édition sur première colonne 
avec tabulation des numéros de Ligne 

0260 séparatif des colonnes 

0270 on cherche du travail pour La deuxième 
colonne si pas de boulot alors suite première 
colonne ligne suivante 

0310 idem 3ème colonne 

0340 impression de La Ligne complète, retour 
chariot et incrément de ligne 

0350 saut de page 

0360 initialisation des bornes de recherche 
pour La nouvelle page 

0370 s'il reste des lignes a éditer on 
recommence La boucle 


oo 


0380 petit nettoyage en fin d'édition 

0390 sous programme dé decomposition et 
formattage des lignes a traiter 

0400 on décompose La Ligne originelle en 1-2 ou 
3 morceaux 

0410 écriture premier tronçon dans FTEXT et 
incrément du compteur de lignes validées 

0420 si 2ème Ligne vide ... retour a La boucle 
sinon écriture et incrément 

0430 idem 

0440 retour a La boucle principale 


Tous Les avis, critiques, remarques, et surtout 
OPTIMISATIONS de ce programme sont non seulement 
justifiées mais surtout souhaitables et bien 
venues. Peut-être un de nos saturniens de genie 
eura La générosité de concocter un petit Lex . 
. LT3COLEX 


JE RECHERCHE UN PROGRAMME POUR FAIRE UNE COPIE 
BIT PAR BIT D'UNE ZONE DONNEE DE MEMOIRE VIVE , 
SUR IMPRIMANTE GRAPHIQUE. IL S'AGIT EN FAIT DE 
SIMULER LA ZONE MEMOIRE D'UN ECRAN GRAPHIQUE 
DONC DE DESSINER POINT PAR POINT DANS CETTE ZONE 
(BIT PAR BIT) PUIS DE FAIRE UN REPORT DE LA ZONE 
AINSI TRAITEE SUR L'IMPRIMANTE 82905B UNE SORTE 
DE HARD COPIE DE LA PAGE ECRAN TOUTE 
PROPOSITION, RENSEIGNEMENT, ASTUCE EST BIEN VENUE 
LANGUAGES POSSIBLES : BASIC, FORTH, FICHIERS LEX. 


Philippe DAVASE 


PORTFOLIO 


Si, comme moi, vous possédez un certain nombre 
de cartes du PORTFOLIO, ce programme est 
susceptible de vous interesser. En effet, à 
partir d'un certain nombre... de ces cartes, 
vous vous apercevez que vous devez calculer La 
totalité des différences des 44 valeurs du 
tableau proposé quotidiennement. 


Mais, au fait, je pars du principe que vous 
connaissez ce nouveau jeu dorénavant célèbre 1! 
Ce jeu grâce auquel vous (Hé oui, vous !) pouvez 
gagner 30.000 Frs par jour du mardi au samedi et 
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jusqu'à 100.000 Frs avec le Super tirage du 
(lundi (que de babasses(*) cela représente...). 


Néanmoins, pour ceux qui ne connaissent pas 
encore ce nouvel engouement ludique, il faut 
savoir que tous Les jours, le journal Le Figaro 
édite une grille différente de 44 valeurs 
(numérotées de 1 à 44) côtées en Bourse dans 
laquelle figurent Le cours du jour ainsi que le 
cours de La veille pour chacune de ces valeurs. 
D'autre part, sur chaque carte personnelle que 
le joueur possède, sont indiqués 8 numéros 
différents, compris également entre 1 et 44, qui 
permettent de se reporter sur La grille pour 
calculer Les écarts correspondants entre cours 
de La veille et cours du jour. 


De plus, quotidiennement ce journal indique le 
PORTFOLIO du jour qui est un montant à atteindre 
(par ex. + 80) en additionnant Les 8 
différences concernées. Le Super PORTFOLIO du 
Lundi est obtenu en additionnant tous Les 
résultats de La semaine précédente pour une carte. 


Le programme commence donc par demander de 
rentrer Les différences entre cours de La veille 
et cours du jour pour Les 44 valeurs de la 
grille. TRUC : il s'agit d'un INPUT, vous pouvez 
donc directement écrire par ex. 896 - 883 au 
lieu de vous creuser La tête à calculer 
mentalement la différence (Toujours moins 
fort!)}. Une fois ces différences entrées, le 
programme effectue La sommation pour chaque 
carte et imprime Les résultats obtenus sur 
l'imprimante que vous aurez préalablement 
connectée sur La boucle. Puis s'imprimeront les 
différences que vous avez entrées ainsi que les 
numéros des valeurs correspondantes, ceci pour 
contrôle. 


Le programme sauve Les résultats obtenus pour 
chaque carte dans un fichier et vous demande si 
vous désirez effectuer le calcul du 
Super PORTFOLIO, c'est-à-dire la somme des 
résultats du mardi au samedi. Lorsque vous 
répondrez oui en fin de semaine (après avoir 
calculé Les résultats du PORTFOLIO du samedi par 
CO CHLD P vous pourrez obtenir 2 types 
d'impression, selon l'imprimante connectée sur 
la boucle. 


Si vous avez l'imprimante thermique HP-82162A, 
seuls les résultats du Super-PORTFOLIO 
apparaîtront face aux numéros des cartes. A ce 





sujet, je dois préciser que pour reconnaitre 
facilement mes cartes, j'ai pris Les 4 premiers 
chiffres du numéro qui figure en bas à gauche de 
chacune d'elles. Toute autre convention est 
laissée à l'appréciation de chacun. 


Si vous possédez une Thinkjet, l'impression 
sera plus complète : Le programme trace alors un 
tableau qui reprend l'ensemble des résultats 
obtenus durant La semaine, avec bien entendu le 
Super PORTFOLIO qu'il vient de calculer ! Ceci 
est réalisé grâce aux possibilités de cette 
imprimante. C'est La deuxième série de DATA qui 
permet Le tracé du cadre du tableau, La première 
série correspondant aux cartes du PORTFOLIO avec 
Le numéro de La carte (4 chiffres) suivi des 8 
numéros figurants sur chaque carte. Le tout 
premier DATA est Le nombre total de cartes en 
votre possession. 


A la suite de cela, le programme propose une 
sauvegarde du fichier de La semaine. En 
répondant par l'affirmative, vous autoriserez le 
programme à recréer un fichier vierge pour la 
semaine suivante et à renommer Le fichier de la 
semaine sous La forme: 

FOL + Millésime de l'année + Numéro de la 
semaine (FOL8546). 


Mais avant de lancer pour La première fois le 
programme, n'oubliez pas de créer un fichier 
TEXT appelé  SFOLIO ayant La structure 
suivante : 2243 (000 000 000 000 000 000 2243 
est Le numéro d'une de vos cartes, suivi de 2 
espaces et de 6 séries de 000 correspondants aux 
jours de la semaine, du mardi au lundi (Pas de 
tirage Le dimanche...). Ce fichier comportera 
autant de Lignes que vous possédez de cartes. 


IL ne me reste plus qu'à vous souhaiter bonne 
chance en espérant que ma prose ne vous aura pas 
trop ennuyé et que ce programme vous permettra 
peut-être, si ce n'est de gagner de l'argent, 
tout du moins de gagner du temps... 


(*)BABASSE = Machine à clavier... 

PS : Je tiens à préciser que je ne travaille 
pas au FIGARO, que je n'en possède aucune action 
et que je n'ai touché aucune commission pour lui 
faire de La publicité. Qu'on se le dise !... 
Ceci dit et pour conclure : si vous n'avez pas 
encore de cartes, écrivez donc au FIGARO pour 
leur en demander... 
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jusqu'à 100.000 Frs avec Le Super tirage du 
Lundi (que de babasses(*) cela représente...). 


Néanmoins, pour ceux qui ne connaissent pas 
encore ce nouvel engouement ludique, il faut 
savoir que tous Les jours, le journal Le Figaro 
édite une grille différente de 44 valeurs 
(numérotées de 1 à 44) côtées en Bourse dans 
laquelle figurent Le cours du jour ainsi que Le 
cours de La veille pour chacune de ces valeurs. 
D'autre part, sur chaque carte personnelle que 
le joueur possède, sont indiqués 8 numéros 
différents, compris également entre 1 et 44, qui 
permettent de se reporter sur La grille pour 
calculer Les écarts correspondants entre cours 
de La veille et cours du jour. 


De plus, quotidiennement ce journal indique Le 
PORTFOLIO du jour qui est un montant à atteindre 
(par ex. + 80) en additionnant les 8 
différences concernées. Le Super PORTFOLIO du 
lundi est obtenu en additionnant tous les 
résultats de La semaine précédente pour une carte. 


Le programme commence donc par demander de 
rentrer les différences entre cours de La veille 
et cours du jour pour Les 44 valeurs de la 
grille. TRUC : il s'agit d'un INPUT, vous pouvez 
donc directement écrire par ex. 896 - 883 au 
Lieu de vous creuser La tête à calculer 
mentalement le différence (Toujours moins 
fortli). Une fois ces différences entrées, le 
programme effectue La sommation pour chaque 
carte et imprime Les résultats obtenus sur 
l'imprimante que vous aurez préalablement 
connectée sur La boucle. Puis s'imprimeront les 
différences que vous avez entrées ainsi que les 
numéros des valeurs correspondantes, ceci pour 
contrôle. 


Le programme sauve Les résultats obtenus pour 
chaque carte dans un fichier et vous demande si 
vous désirez effectuer Le calcul du 
Super PORTFOLIO, c'est-à-dire La somme des 
résultats du mardi eu samedi. Lorsque vous 
répondrez oui en fin de semaine (après avoir 
calculé Les résultats du PORTFOLIO du samedi par 
ex...), vous pourrez obtenir 2 types 
d'impression, selon l'imprimante connectée sur 
la boucle. 


Si vous avez l'imprimante thermique HP-82162A, 
seuls Les résultats du Super-PORTFOLI0O 
apparaîtront face aux numéros des cartes. À ce 


oo 


sujet, je dois préciser que pour reconnaître 
facilement mes cartes, j'ai pris Les 4 premiers 
chiffres du numéro qui figure en bas à gauche de 
chacune d'elles. Toute autre convention est 
laissée à l'appréciation de chacun. 


Si vous possédez une Thinkjet, l'impression 
sera plus complète : Le programme trace alors un 
tableau qui reprend l'ensemble des résultats 
obtenus durant La semaine, avec bien entendu le 
Super PORTFOLIO qu'il vient de calculer ! Ceci 
est réalisé grâce aux possibilités de cette 
imprimante. C'est La deuxième série de DATA qui 
permet Le tracé du cadre du tableau, La première 
série correspondant aux cartes du PORTFOLIO avec 
Le numéro de La carte (4 chiffres) suivi des 8 
numéros figurants sur chaque carte. Le tout 
premier DATA est Le nombre total de cartes en 
votre possession. 


A La suite de cela, Le programme propose une 
sauvegarde du fichier de La semaine. En 
répondant par l'affirmative, vous autoriserez le 
programme à recréer un fichier vierge pour Le 
semaine suivante et à renommer Le fichier de La 
semaine sous La forme: 

FOL + Millésime de l'année + Numéro de la 
semaine (FOL8546). 


Mais avant de Lancer pour La première fois le 
programme, n'oubliez pas de créer un fichier 
TEXT appelé  SFOLIO ayant La structure 
suivante : 2243 000 000 000 000 000 000 2243 
est Le numéro d'une de vos cartes, suivi de 2 
espaces et de 6 séries de 000 correspondants aux 
jours de La semaine, du mardi au Lundi (Pas de 
tirage Le dimanche...). Ce fichier comportera 
autant de Lignes que vous possédez de cartes. 


IL ne me reste plus qu'à vous souhaiter bonne 
chance en espérant que ma prose ne vous aura pas 
trop ennuyé et que ce programme vous permettra 
peut-être, si ce n'est de gagner de l'argent, 
tout du moins de gagner du temps... 


(*)BABASSE = Machine à clavier... 

PS : Je tiens à préciser que je ne travaille 
pas au FIGARO, que je n'en possède aucune action 
et que je n'ai touché aucune commission pour lui 
faire de La publicité. Qu'on se le dise !... 
Ceci dit et pour conclure : si vous n'avez pas 
encore de cartes, écrivez donc au FIGARO pour 
leur en demander... 


JPC 31-32-33 Page 65 __ 





A bientôt 


Jean-Marie SIMON (P160, T516) 
46, rue de Paradis, 75010 PARIS 


Je profite de cet article pour demander à 
certains d'entre vous, d'une part s'ils 
utilisent mon programme de navigation aérienne 
et d'autre part s'ils y ont apporté des 
modifications ou des améliorations. 

En fait ma question est plus générale : y 
a-t-il des pilotes dans La salle 7... 


Merci par avance de bien vouloir satisfaire à 
ma curiosité. 
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Programme “FOLIO" (Nécessite EDLEX) 


HO) SO 00 NN 6 5 DRE OLIS PORT 
A$ A1$ A2$ A3$ A4$ B$ D$ NOS$ 
140 RESTORE 10 à PRINTER IS :PRINTER @ DESTROY ALL à STD 
160 DIM N(50) 
180 J=MOD(DATE-85315,7) ! 85315 correspond à un LUNDI, changer cette valeur tous les ans 
200 IMAGE X,22ZZZ,10X,SDDD 
220 IMAGE ZZ2Z2,4X, SDDD 
240 IMAGE DD,2X,"=",3X,SDD 
260 FOR 1=1 TO 44 à DISP 15° = !: à INPUT ! ':N(I1) à NEXT I 
- IMPRESSION RESULTATS PORTFOLIO 
300 D$=DATES 
320 PRINT PORTFOLIO DU ‘&D$17]8&'/'&D$14,6]8&D$ [1,2] 


340 PRINT '====s2z====sssss=ssszsz==st À PRINT 
360 PRINT 'Cartes':TAB(14):'Resultats! 
380 PRINT !------ 1} TAB(14);1------ 


400 ASSIGN #1 TO SFOLIO 

420 RESTORE à READ CO 

440 FOR X=0 TO CO-1 

460 READ C1 

480 READ #1,X;AS$ 

500 T=0 à FOR Y=1 TO 8 à READ S(Y) à T=T+N(SCY)) à NEXT Y 
520 B$='000'&STRS(T) à B$=' 1&BS[LEN(BS)-2] 

540 REPLACE #1,X:A$[1,1+4*J]8BS8AS [2+4*(J+1)] 


580 PRINT USING 200;C1,7T 

600 NEXT X @ PRINT à PRINT '============222=2222222! Q PRINT 
620 FOR 1=1 TO 44 à PRINT USING 240;I,N(I) @ NEXT 1! 

640 PRINT à PRINT à PRINT @ PRINT à PRINT 


680 ASSIGN #1 TO SFOLIO 

700 DISP ‘Calcul SUPERFOLIO ?! 

720 AS=KEYWAITS à AS=UPRCS(AS) 

740 IF A$<>'0! AND A$<>'N' THEN 720 

760 1F A$='0! THEN 780 ELSE 1960 

780 DISP ‘Une petite minute... 

800 FOR X=0 TO C0-1 

820 READ #1,X;A$ 

840 T=0 à FOR 1=1 TO 5 @ T=T+VAL(AS(2+4*1,1+4*(1+1)]) @ NEXT 1! 
860 B$='000'&STRS(T) à B$='! '&BS[LEN(BS)-2] 

880 REPLACE #1,X:A$11,25]8BS 

900 NEXT X à DISP ‘Impression! 

SUPER-PORTFOLIO SUR THINKJET 

940 T=DEVADDR("HP22258") à 1F T<0 THEN 'THERMIC! 

960 PWIDTH INF @ PRINT CHR$(12) 

980 DIM A$[90] ,A1$ 190] ,A2$ 190] ,A3$ [90] ,A4$ [90] ,B$ [80] ,N0$ [4] 
1000 RESTORE 2240 

1020 FOR 1=1 TO 80 à READ K à A1$=A1S$S&CHRS(K) @ NEXT 1 

1040 FOR 1=1 TO 80 à READ K à A2$=A2S&CHRS(K) à NEXT 1! 

1060 FOR 1=1 TO 6 à READ K @ A3S$=A3S&CHRS(K) @ NEXT 1! 

1080 IMAGE #,7X,B,"&k3S",2222,B,"&k0S",5X,S3D,4(5X,S3D),10X,B,"&k3S",S3D,B, "&kOS" 


1120 PRINT CHR$(27)&'&k1S PORTFOLIO DU FIGARO! 

1140 PRINT !  ================222=22! Q PRINT CHR$S(27)8&'&k0S'! @ PRINT @ PRINT @ PRINT 
1160 PRINT TAB(17); 'MARDI MERCREDI JEUDI VENDREDI SAMEDI LUNDI] ! 

1180 CALL CADRE(1,A1$,A2$,A3$) 

1200 RESTORE #1 à FOR 1=1 TO C0-1 à READ #1;B$ 
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1220 CALL CADRE(2,A1$,A2$,A3$) 
1240 BO=VAL(BS(1,4)) à B1=VAL(B$(7,91) à B2=VAL(B$(11,131) à B3=VAL(B$(15,171) 
1260 B4=VAL(B$(19,211) à BS=VAL(BS(23,25]) à B6=VAL(BS(27,29]) 
1280 PRINT USING 1080:27,B0,27,81,82,83,84,85,27,86,27; 
1300 CALL CADRE(2,A1$,A2$,A3$) à CALL CADRE(3,A1$,A2$,A3$) 
1320 NEXT 1! 
1340 READ #1;8$ 
1360 BO=VAL(BS (1,41) à B1=VAL(BS(7,91) à B2=VAL(B$(11,131) à B3=VAL(B$(15,171) 
1380 B4=VAL(B$(19,211) à B5=VAL(B$(23,25]) à B6=VAL(B$S(27,29]) 
1400 CALL CADRE(2,A1$,A2$,A3$) 
1420 PRINT USING 1080:27,80,27,81,82,83,84,85,27,B6,27 
1440 CALL CADRE(2,A1$,A2$,A3$) à CALL CADRE(4,A1$,A2$,A3$) 
1460 PRINT CHR$(12) à GOTO 1680 
- SUPER-PORTFOLIO SUR HP-82162A 


1500 THERMIC!: 

1520 T=DEVAID("PRINTER") à IF T<0 THEN 'MESSAGE! 

1540 PRINT à PRINT à PRINT 

1560 PRINT CHRS(27)&'&KISSUPER PFOLIO! à PRINT tr*aateeenes 
1580 PRINT à PRINT 

1600 RESTORE #1 à FOR 1=1 TO CO à READ #1:A$ 

1620 C1=VAL(AS(1,4]) à T=VAL(AS(26]) 

1640 PRINT USING 220:C1,T 

1660 NEXT 1 à PRINT CHR$S(27)&'&k0S' à PRINT à PRINT 

1680 ASSIGN #1 TO * 


1720 INPUT ‘Sauvegarde FOLIO ? !,'0';AS$ 

1740 AS=UPRC$S(AS) àQ IF A$<>!'0! AND A$<>!N! THEN 1720 
1760 IF A$='N! THEN 1980 

1780 B$='FOL'&DATES[1,2]8&STR$(1+(DATE-85000) DIV 7) 
1800 RENAME SFOLIO TO B$ 

1820 CREATE TEXT SFOLIO 

1840 ASSIGN #1 TO SFOLIO à RESTORE à READ CO 

1860 FOR 1=1 TO CO à READ A 

1880 FOR J=1 TO 8 à READ X à NEXT J 

1900 B$='0000'&STR$S(A) à B$=B$ (LEN(B$)-3] 

1920 PRINT #1;:B$&! 000 000 000 000 000 000! 

1940 NEXT 1! 

1960 ASSIGN #1 TO * à DISP ‘Fin...! @ WAIT 1 Q PUT "#43" 
1980 END 


2000 'MESSAGE': DISP “Pas d'imprimante!" à BEEP à BEEP Q BEEP Q WAIT 1 à GOTO 1960 
- CARTES PORTFOLIO 
1er DATA = Nombre de cartes 


2060 DATA 5 

2080 DATA 1654,5,8,10,11,23,31,42,44 
2100 DATA 5144,1,3,13,20,27,30,36,42 
2120 DATA 3728,3,4,18,22,24,32,40,43 
2140 DATA 18,2,6,9,15,21,33,34,39 
2160 DATA 299,7,12,14,16,28,29,35,41 


_ — — _ mm — _— 
LS SSSSSSSSSSSSSSLEISESTSSSSSSSESSESSSSSSSSSZSZSSZEZZ============ 


- Et ainsi de suite pour Les autres cartes... 


DATA POUR CREATION TABLEAU SUPER-PORTFOLIO 


___ JPC 31-32-33 Page 68 





See ee de ee ee ee ee ee ee ee ee ee ee fe ee fe fe ee ee 


Programme "FORMLIST" (Pour Lister en 3 colonnes) 


- programme FORMLIST Le 15.12.85 Listing/3 colonnes 
20 DESTROY ALL @ DELAY 1,1 à STD 
30 SFLAG -1 à PURGE FTEXT @ PURGE BAK à CFLAG -1 
40 INPUT ‘Fichier: !:F$ 
50 DISP ‘COPIE DE : ':F$ à COPY FS$ TO BAK 
60 DISP CODAGE ASCII :':F$ @ TRANSFORM BAK INTO TEXT 
70 DIM A$[256],81$[50),B82$155),B3$ (45) 
80 CREATE TEXT FTEXT 
90 ASSIGN #1 TO BAK @ ASSIGN #2 TO FTEXT 
100 DISP *FORMATTAGE DE:!;F$ à N=0 


110 "BOUCLE: 

120 ON ERROR GOTO ‘FIN! 

130 READ #1,0;A$ 

140 OFF ERROR 

150 GOSUB FORM1! 

160 DELETE #1,0 à GOTO ‘BOUCLE! 


170 ‘FIN': 

180 OFF ERROR @ PURGE BAK à ASSIGN #1 TO * 

190 PWIDTH 132 à RESET HPIL @ RESTORE 10 

200 PRINTER IS :1 à PRINT CHR$(27)&"&k2S" 

210 DISP ‘EDITION DE:';F$ @ N=N-1 à N1=0 à N2=59 

220 FOR I=N1 TO N2 

230 1F I1>N THEN 350 

240 READ #2,1;:A$ @ IF A$[1,1]=CHR$(O) THEN AS$=" N&AS [2] 
250 PRINT AS; 

260 PRINT TAB(43);"I"; 

270 11=1+60 à 1F 11>N THEN 340 

280 READ #2,11;:A$ à IF A$[1,1]=CHR$(O) THEN A$=" "&AS$ [2] 
290 PRINT TAB(46);A$; 

300 PRINT TAB(89); "1"; 

310 12=1+120 à 1F 12>N THEN 340 

320 READ #2,12:A$ à 1F AS[1,1]=CHR$(0) THEN AS$=" H&AS [2] 
330 PRINT TAB(92);A$; 

340 PRINT @ NEXT 1! 

350 PRINT CHR$(12) 

360 N1=N1+180 à N2=N2+180 

370 IF N1<N THEN 220 ELSE DISP "FIN DU TRAITEMENT" 

380 DESTROY ALL @ ASSIGN #2 TO * à PURGE FTEXT @ OFF 10 à BEEP @ END 


390 ‘FORM! : 

400 B1$=A$(1,40] à B2$=CHRS(0)&AS [41,75] à B3$=CHR$S(0)&AS [76] 
410 PRINT #2:B1$ @ N=N+1 

420 1F B2$=CHR$S(0) THEN 440 ELSE PRINT #2;:B2$ à N=N+1 

430 1F B3$=CHR$S(0) THEN 440 ELSE PRINT #2;:B3$ à N=N+1 

440 RETURN 


de ee de de de ee ee re de De ee ee er eee re re ee ee er er re ee or or eve eee fe ee ee ee ere eee ee ee A 
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Programme "COPYDISK" (Nécessite les LEX : DESAL EDLEX et KEYWAIT) 


100 1F MEM<3000 THEN DISP MSG$(24) à END ! pas assez de mémoire 
- AO A1 A2 A3 I J L *X 
A$ B$ C$S M$ N$ 2$ 
initialisation 
180 DESTROY ALL à CFLAG 0,1 
200 DIM A$(411,B$(26],C$(4],NS(8] ,M$(8] 


220 DEF FNL(X) @ READ #1,X-1;:B$ Q FNL=VAL(B$(20,24]) à END DEF 


260 FNE=(B$=1*1)+2*(B$='#1)+3*(B$=1Q!)+4*(B$='&) à END DEF 
- *=sauvé, #=lu et non sauvé, d=type inconnu, &=déjà en mémoire (ne doit pas être purgé) 
300 C$='CATA! à M$=!' :MASSMEM" 
320 INPUT 'Disqu. Sauvegarde : ';25 
340 1F 2$='t THEN 320 
360 ZS$S=REDS(UPRCS(Z$)) à IF 2$(1,1]1#'.' THEN 2Z$='.'8&2$ 


400 DISP ‘Insérer disqu. ORIGINE! 
420 AS=KEYWAITS 
- LECTURE ET TRI CATALOGUE DISQUETTE 
460 CREATE TEXT CS 
480 ASSIGN #1 TO CS 
500 1=1 
520 PRINT #1: 'NNNNNNNNNN S TTTTT 99999 
540 PRINT #1:"NNNNNNNNNN S TTTTT 00000 : 


580 'TRICATA!: 

600 AS=CATS(I,MS) à AS=A$(1,25]8! ! 

620 1F A$=! ! THEN ‘FINCAT' 

640 DISP A$[1,101 

660 L=VAL(AS (20,241) 

680 FOR J=1 TO 1+2 

700 IF L>FNL(J) THEN INSERT #1,J-1;A$ Q J=1+2 
720 NEXT J 

740 1=1+1 à GOTO ‘TRICATA! 


780 ‘FINCAT!: 

800 DELETE #1,0 à DELETE #1,1-1 

820 ASSIGN #1 TO * 

840 DISP ‘Fin lecture CATALOGUE" 
- LECTURE ET ECRITURE CAT. EN MEMOIRE 

880 AO=MEM à "BOUCLE : 

900 SFLAG 1 ! permet de savoir quand on ne peut plus rien copier 
- recherche du plus gros fichier copiable 

940 ASSIGN #1 TO CS 


960 LECTURE: 
980 FOR 1=1 TO FILESZR(CS) 
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1000 1F FNEC1)#0 OR FNL(1)>MEM-200 THEN 1180 
1020 CFLAG 1 ! ce n'est pas La dernière passe 
1040 READ #1,1-1;A$ 
1060 B$S=REDS(AS [1,10] )EMS à N$S=AS [1,8] 
1080 ON ERROR GOTO ERREUR! 
1100 DISP A$(1,10] 
1120 COPY B$ TO N$ 1! Attention aux noms de plus de 8 caractères 
1140 OFF ERROR 
1160 A$=AS$(1,25)8&'#! àQ REPLACE #1,1-1;A$ 
1180 X=FLAG(O,FLAG(1)) 
1200 NEXT 1 
1220 ASSIGN #1 TO * 
ECRITURE 


un ue ue due dun du du (ue (ue de (a de (ae mue Mu (éme ie Mie Mie dim der de die dater du de de ue dé die dti de M M MR MU A du Me ue ue M M Ce Ce Ce Mn Me M ee ne Se SE SES ON On On nn nn 
= mm mm ee ere ue dé de ue Mu du ne un un Æus un Ou Æu ue Œue Œue Que un ue Œue un ue NN Me M Me due Mie Me due de de de M ŒUR UN UE GUN GR GUN QU OU ue A Ce Ce ne ue un 


1260 'DISKOBJ'!: 

1280 DISP ‘Insérer disqu. ';2$12] 

1300 AS=KEYWAITS 

1320 A2=A2+1 à ASSIGN #1 TO CS 

1340 FOR 1=1 TO FILESZR(CS) 

1360 1F FNECI1)#2 AND FNECI)#4 THEN 1540 

1380 READ #1,1-1:A$ à B$=REDS(AS [1,10] )82$ à N$=A$ [1,8] 
1400 DISP AS$[1,10] 

1420 COPY NS TO BS 

1440 1F FNECI)#4 THEN PURGE N$ 

1460 AS=A$[1,25)18&'*! à REPLACE #1,1-1;A$ 

1480 IF AS$[12,12]='S' THEN SECURE REDS(AS[1, 10] )&2$ 
1500 1F A$[12,12]='P! THEN PRIVATE REDS$S(AS[1, 10) )&2S 
1520 A1=A1+FNL(1) 

1540 NEXT 1 @ ASSIGN #1 TO * 


1580 1F FLAG(O) THEN ‘FIN! 
1600 DISP “Insérer disquette ORG" 
1620 AS=KEYWAITS 
1640 GOTO ‘BOUCLE! 
FIN 


SESSSSSSSSSSSSSSSSESTSSIIETSTSTIOTISTITTTITITITIZTsEE ss ssszsz 
1680 ‘FIN': 
1700 DISP "Fini" @ BEEP àQ BEEP à BEEP 
1720 CFLAG 0,1 
1740 A3=A1/(A2*A0) à DISP :Tx de transfert =':1P(A3*1000)/10;'%' à WAIT 3 
1760 DISP ‘Impression CATALOGUE ?' @ A$=KEYWAITS 
1780 1F AS$='0! THEN 1800 ELSE 1820 
1800 PWIDTH 80 à PLIST C$ 
1820 PURGE C$ @ END 
- TRAITEMENT D'ERREUR 


1860 ‘ERREUR! : 

1880 1F ERRN=57 OR ERRN=255022 THEN DISP ‘Disqu. ORIGINE 111! à BEEP à E$=KEYWAIT$S à GOTO 1120 
- Le fichier en mémoire vive est considéré comme valide 

1920 1F ERRN#59 AND ERRN#255030 THEN 1960 

1940 DISP MSGS(59) à BEEP à AS=AS$[1,25]8'8&! à REPLACE #1,1-1;:A$ à GOTO 1180 

1960 1F ERRN#63 THEN 2020 

1980 AS$S=ASI1,25)&'a! à REPLACE #1,1-1;A$ 

2000 DISP MSG$S(63) à BEEP à GOTO LECTURE! 

2020 DISP MSGS(ERRN) à BEEP à STOP ! Cas non prévu... 
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DIESEL OODOTIESSIRPOIPEDOPEDTITETISIEDESEIPLPIDTISS SSSSE3t3388 

2240 DATA 27,42,98,55,52,87 

2260 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,31,255,255,255,255,255,255,255,255, 255,255 
2280 DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 255,255 
2300 DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 255,255 
2320 DATA 240,0,0,0,0,31,255,255,255,255,255,255,255,255, 240 

2340 DATA 27,42,98,55,52,87 

2360 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,16 

2380 DATA 0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,16 

2400 DATA 0,0,0,0,0,0,0,0,16,0,0,0,0,0,0,0,0,16 

2420 DATA 0,0,0,0,16,0,0,0,0,0,0,0,0,16 

2440 DATA 27,42,98,49,87,0 


= ù ee ue ut du ut de cs cé ds ie ie de de dé de dé de ie M ds Cu ut OC OC CN CU MU CN UN AN CE M M UN MN MN UN MN (ON UN CN UN OU NN ON Se NN CN CN ue AE A CN CN 
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2480 SUB CADRE(A,A1$,A2$,A3$) 
2500 ON A GOSUB 'A1!,'A2!,'A3!,'A4! 
2520 GOTO 2680 


2540 ‘Aî': FOR 1=1 TO 8 à PRINT A3$ à NEXT I @ PRINT A1$ à FOR 1=10 TO 12 à PRINT A2$ @ NEXT I 
2560 RETURN 


2600 'A3': FOR 1=1 TO 8 Q PRINT A2$ àQ NEXT I! à PRINT A1$ à FOR 1=10 TO 12 à PRINT A2$ à NEXT I 
2620 RETURN 


2640 'A&t: FOR 1=1 TO 8 à PRINT A2$ à NEXT I! à PRINT A1$ à FOR 1=10 TO 12 Q PRINT A3$ à NEXT 1! 
2660 RETURN 
2680 END SUB 
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LE COIN DES LHEX 


Toute La partie du journal qui précède est 
écrite quand je commence Le coin des Lhex. Et, 
mauvaise surprise, en préparant cette rubrique 
je constate un oubli : LINKLEX n'a pas été copié 


Conséquence : mes excuses auprès de J.Pierre BONDU 
je passe quand même la version 
pour MAKELEX, et le mois 
prochain, nous difuserons le 
source. 


Ce mois-ci donc : 


DECOMLEX CSWAP 092255 
CONTRAST CONTRAST 001023 
SCANLEX ENTRYS$ 240072 
TOKEN 240073 
TYPE 240074 

CONFIGLX 
FINDLEX FIND 240075 
MNEMO 240077 


PROGAMME MAKELEX 


10 CALL MLEX à SUB MLEX à SFLAG -1 à PURGE AH @ INPUT "Nb. d'octets: ";:N @LCOFF 
20 CREATE DATA AH,1,N-4 @ A=HTD(ADDRS("AH")) @ B=A à GOSUB 130 
30 Q=1 9 X=0 à INPUT "000: “,PS:A$ à C$=A$ à S=0 à GOSUB 90 


ENDUPLEX 


SECURELX 


DATELEX 


STRUC1 


MASERLEX 
SWAPLEX 
TOTO 
EDITLEX 


LINKLEX 





ENDUPS 240016 
ENDUP 240017 
EXECUTE 240019 
STARTUPS 240018 
SECURE 001079 
DATE+ 240051 
DDAYS 240052 
DMY 240053 
DOWS 240054 
Du 240055 
MDY 240056 
END 240066 
LEAVE 240070 
REPEAT 240068 
UNTIL 240069 
WHILE 240067 
SUAP 240071 
STK 093001 
EDIT 001184 
LABELS 240076 


40 Q=2 à X=1 à GOSUB 80 à AS=ASECS à A=A+37 à N=N*2+37 à Q=3 à SFLAG‘5 


à FOR X=2 TO N DIV 16-1 


S0 GOSUB 80 à C$=CS(5*FLAG(5)+1] à POKE DTHS(A),C$ à A=A+16-5*FLAG(5,0) 


à NEXT X à Q=4 


0060 DISP DTHS(X)(31: à INPUT ": M,P$[1,MOD(N,16)]1;C$ à GOSUB 90 
0070 POKE DTHS(A),CS à POKE DTHS(B),AS à CFLAG -1 à END 


0080 DISP DTH$(X)[3]; à INPUT ": ",P$;C$ 


0090 DISP DTHS(X)[3); à INPUT " sm ","---":D$ 


0100 M=S à FOR Z=1 TO LEN(CS) à M=NUM(CS(2])+M+1 @ NEXT Z 
0110 1F D$S=DTHS(MOD(M,4096))[3] THEN GOSUB 130 à S=M à RETURN 
0120 DISP "Erreur de somme“ à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 


0130 PS=M--....--........ “ à RETURN 
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DECOMLEX 


000: 
001: 
002: 
003: 
004 : 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 


CONTRLEX 


000: 
001: 
002 
003: 
004 
005: 
006: 
007: 
008: 
009 
00A: 
008: 
00C: 
000: 
00E : 
00F : 
010: 
011: 
012: 


SCANLEX 


000: 
001: 
002: 
003: 
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0123456789ABCDEF sm 


445434F4D4C45485 387 
802E002001304068 6CE 
SA000C5FFFF00000 A64 
F710000000000000 D92 
091000F934357514 0EB 
OSFF1FF8118FC10B 4BB 
0480AF2108101492 81A 
13707DAD22031218 B9C 
F7C2100F13558008 F4F 
80A9390111120101 2A9 
11115171CF110151 5FD 
71C131E014D82180 982 
C32F0 AAS 


1D#01 
0123456789ABCDEF sm 


34F4E44525C45485 387 
802E003001304068 6CF 
8010010717100000 9F9 
F710000000000000 D27 
OF20000F34F4E445 O0BC 
25143545711FF803 43D 
0350037FFFF9FFFF 818 
7E203556470236F6 B8B 
E64727163747A385 F11 
8202D202845495D5 295 
FF071358FE0C108F 646 
E92208FEE0108FAB A02 
251044908FE21208 D7F 
F3E32083420A2730 0FO0 
008FA8C41860908F 498 
EE0108084A801BEF 852 
3E215248444AA150 BCE 
45S3A1BEF3E21524A F70 
4C42957EF 186 


0123456789ABCDEF sm 


353414E4C4548502 36€ 
802E003001304068 684 
5D1001E84A400000 A15 
F920000000000000 D46 
094100FF0008000F OCC 
C1009100FB54E445 44D 


: 25954284945F4B45 7CB 
: 4E494745950554A4 B46 


1FF800FD0891418F EFE 


: BC63154417FCC4C3 2A8 


ID#5C 80 octets 


130 octets 


ID#E1 232 octets 


00A: 
008: 
00C: 
000: 
00E : 
00F: 
010: 
011: 
012: 
013 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
018: 
01C: 
010: 
01E: 
01F: 


CONFGLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
O0A: 


FINDLEX 


101208F130801371 610 
35C2078FD30E0136 9C0 
1341088508F83940 D38 
878708AC908091FB OF3 
0121CC1214008F27 45C 
130850DA8FC4A406 7F2 
00F8412787F84431 B7B 
FE96202313896271 EFB 
866962C0FO0ADO0F05 2A3 
A0854BF4F4100AD0 641 
AA0D2328E38F943B 9EE 
1118F6AD2F6CA8FB DBC 
13B1AF88F74030AF 165 
LAFE864802980FF8 516 
D912F0841275FE8F 8C0 
74030134D4AF2248 C35 
OFFAF78F84171847 FEF 
A47813DB8FA90F08 3A3 
00000AF415111CF2 73A 
08FE838180C32F08 AED 
4127C9ED009A8A84 EB8F 
46B6F FBC 


0123456789ABCDEF sm 


34F4E46474C45485 38C 
802E004001304068 605 
E80001E000000000 A18 
FE0000000800001F D72 
F31FF9614000DBDA 127 
8FD0F8007DA8FDO0F 4FB 
8007DA8FD0F8085D 880 
8FC8081419F4C34F C6E 
4E46494748FOFB8FE 024 
3F800B8068FE3F800 3E9 
BO68FE3F80FE00F 775 


0123456789ABCDEF sm 


6494E444C4548502 377 


: 802E004001304068 6C0 


072001E848400000 A1B 
F710002000000000 D48 
0E3000776494E444 0B9 


: 841FF101081108E4 439 
: F6470264F657E646 7C9 
: CFF8DD97309FFFF8 BC4 


F681F08F13DB08A8 F78 
E418888F21401371 2FF 
35C2CECE1641448F 6AE 
88B8818FEEB604018 A60 
F627705D031F3803 DF1 


ID#E1 69 octets 


ID#E1 310 octets 


000 
00€: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
018: 
01C: 
010: 
01E: 
01F: 
020: 
021: 
022 
023: 
024: 
025: 
026: 
027: 
028: 
029: 


ENDUPLEX 


000: 
001: 
002: 
003: 
004 : 
005: 
006 
007: 


$ 


00A: 
008: 
00€ 
000 
00E: 
00F: 
010: 
011: 
012: 
013 
014: 
015 


93908F9997051120 15F 
3310E580A93901F8 4F1 
E7F2D215F38F4EFF 8CD 
05C0137D051378F13 CSA 
0018837004131D88 FDA 
FD30E01371351088 36F 
FF6F4020D4C41B1C 723 
6F2146C210A1351B A9F 
098F214610918414 DFF 
6EA4ESAD1D8810CE 1E0 
8000F607502D9061 582 
3706137161171D80 8F8 
S8FFE1810713507D C95 
5562cD01191344511 FFC 
4A1C114F9620CCD5 3A1 
2F11A13511AAFO0DA 744 
137EA81C20118135 ACO 
BA8E68F96F401BF8 EB4 
5F21461341F1C6F2 200 
AD0143EA81C10009 5AA 
067C00B1C3E3B81E3 946 
FF071358FE0C1007 CEO 
D58F617901188F1C O7A 
6908F898108DE730 40C 
O8FC2DE0078F1300 785 
12088360657E1181 827 
371088FDA6701181 EB9 
354908D84A806F9E 259 
F 2A0 


ID#E1 


0123456789ABCDEF sm 


54E4445505C45485 376 
802E004001304068 6BF 
042001E013100000 9F0 
F230000000000000 D18 
0DC100FF00BE000D OBA 
D2018100FC103010 422 
00854E4445505420 797 
1954E44455051105 805 


: 485543455455431F E6C 
: 3545142545550542 187 


211FF31BF9611131 539 
CF96142000907320 805 
OABFFF8113210A8F C6F 
FF811FC003200A8F 012 
AB8115FEDB0531FC 3EB 
8Fc463151C31DC8F 79C 
C463143B831DC8FAF B56 
5311378062620800 ED6 
973080394509FFFF 288 
DEFFF8F681F00231 663 
0C1083200A783080 97 
84AB8OFCFFF3CFFFS DE7 





286 octets 





016: 
017: 
018: 
019: 
01A: 
018: 
01C: 
012: 
O1E: 
01F: 
020: 
021: 
022: 
023 
024: 
025: 
026: 


SECURLEX 1ID#01 403 octets 


A 


F681F0D2CE 108321 189 
0A731057D3210A8F 50A 
AB811608F10A8FE4 8C8 
4A131D010C114D850 C41 
75808F1308013710 FC3 
8D2E6E68B6E011A8 377 
F14A11030811B8BA 713 
908DA114110111A8 A7D 
FD791149080D4490 E17 
1101301198F77181 178 
0200328085900032 482 
00A1331018FAB811 827 
137136D58F064A11 BAO 
111315E114A31D09 F09 
6221AE68F4058116 287 
156ED91348078181 610 
F 663 


0123456789ABCDEF sm 


3554345525C45485 366 
802E005001304068 6B0 
A230010F4F44D200 A25 
F710000000000000 D53 
0660000835543455 0B7 


: 2554F41FF1FF8FE7 485 
: A205908D2713075F 801 
: F8F5CC30500318F9 BAS 


628031FC96640038 F1E 


: D20F208D547509FF 2C2 
: FFABFFF84B14A8F5 6BA 
: 04505711FD55F214 A32 


7135708169C02F30 D9F 


: E201F088F2155431 118 
: 8F96273AC215548F 4B4 


D2F905908DA93908 851 


: F36F905DB876CE94 C14 


ATEACBAGES56067A0 FDA 
AGE4E28F73321B04 373 


: 8C831D5B47A47470 707 


97C60694FD231C35 ASE 


: BSAB675E11F088F21 E41 


5547E11514023104 1A5 
678F716141F1376F 531 


: 401F088F2157494E 8B7 


908D84A808465B18 C4D 
FF20114BE14B9680 FE6 
F1376910155475C0 355 
65EF1F855F21471F 6FF 
678F21456C00DA8F AA2 
D1F6013514B96CEE E4F 
1F878F21451F678F 1FB 


: 214313014E96A731 55E 


C41411317C201F17 8CB 


022 
023: 
024: 
025: 
026 
027: 
028 
029: 
02A 
028: 
02C: 
020: 
02E: 
02F: 
030: 
031: 
032: 
033: 
034: 


DATELEX 


8 


8F2143D23102CA13 C47 
0142136CA13014E9 FB3 
6E0D6D3F1378F116 356 
AO8F7F5A0460653F 6F6 
17F17314B30186BC A7D 
030E0E065600E0E1 DF6 
510012031EF8FCA9 189 
0193800170A8815F 4FD 
7AF717215F217215 87A 
74B46AC7173F2F23 CA 
081331358FO0BFOBF FBA 
0AB410103A6FDB10 34A 
870AF4005C08FF20 6EC 
114001189670F031 A46 
OA5A500000F71000 DAO 
0000000000062000 088 
DF55E43554345525 43E 
S&AS1FFF5DFFO2DF 821 
F85B8C460FF AD6 


ID#E1 


0123456789ABCDEF sm 


44144554C4548502 35E 


: 802E006001304068 6A9 


744001E338300000 9EF 


: F440028000000000 D27 


OFAOOOFD00D4100F 087 


: A105E300D3200310 413 
: OFE2037100F730CD 7A2 
: 3000944144554B23 B08 


3944441495354354 ESF 
4D49553744F47542 1DC 
63544F4757350444 557 


: 95831FF101001004 884 


44144554020F110B C22 
BF4574702F666022 FAS 
516E67656CFF8822 345 
8FC1D808F3228184 6F1 


: 1401831606F92851 AGE 
: F810017F70D17F81 DFB 
: D9110861D08B6CDE 1A9 


265000C273C28F533 523 


: 3186080DDDFDD840 8D3 


AFB2190A50850812 C56 


: 812A798F834B1A72 FEC 
: 8FF24B187080812A 37C 


3EB83668408118526 6F0 
84088227E5117F10 A6B 
874511109F661872 DDD 
AFABFB13B1BCC6D0 1BE 
OB7A8FB13B1AF680 588 
832F08118427A11A BFE 
FACCD23078FE6CE0 CDC 
87221816AD2AA281 063 


545 octets 


020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
O2A 
028: 
02C: 
020: 
02E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 
036 
037: 
038 
039: 
O3A 
038: 
03C: 


STRUCLEX 


JPC 


é6ccF17F13310113 3E6 
38F6242029021012 736 
0030540450960399 A7F 
646E657C42969803 E02 
9964627160429677 178 
03F9646562736275 4E8 
6042F68503996465 868 
756A4296D403F964 BF7 
6562746E656652F6 F7A 
E203896465606183 2FE 
5281CB61203F5686 688 
36E6160696442F1C A20 
F660010915518F06 D9F 
4A18402080781812 114 
0315E048408FC463 490 
1550850018FC1DB0 811 
AF8780FAF990A508 BEO 
12812812AF721A92 F56 
873812812AF5A92B 2F2 
718F834B1AFA23A9 6A1 
2B7A86080DDDFDDD A81 
22031219 1F43170 DEO 
9E1A130296123A0E 161 
0E05213036810101 4AF 
301A8A0E05B0E 111 831 
213039E3115cC5319 B97 
29EBC05058091FB0 F44 
9E36FAE9109102D2 2E3 
304058FE6CEOBADA 69€ 


: D11296C71320048F A17 
: E6CEO8A9606EBF 11 DD7 


9AE51128F40331AF 16F 


: EAF22034532D89F2 500 


FOAF2CEAFE9FE000 8F4 


: 733101E8DA939003 C6D 
: 00023000315E6310 FAA 


E100002000315E21 2F3 
8F3F5318084A808D 6A0 
3035003 805 


0123456789ABCDEF sm 


3545255534C45485 366 
802E007001304068 6B2 


: EF4001E246400000 A17 


F830087000000000 D61 
078000023060 1000 002 
610073000520AE20 44A 
00900B83000554E4 7CF 
4462490454 1465546 835 
4B25540554144546 EBF 
9S5E44594C454975 216 
8494C4S43A1FF30S 598 
001304758494C454 BF8 
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ID#E1 637 octets 





00C: 
000: 
00€: 
00F: 
010: 
011: 
012: 
013: 
014: 
015 
016: 
017: 
018: 
019 
01A: 
018: 
01C: 
010: 
01E: 
01F: 
020: 
021 
022: 
023 
024: 
025: 
026: 
027: 
028: 
029 
02A: 
028: 
O2C: 
020 
02E: 
02F: 
030 
031: 
032 
033 


5 


035: 
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C81408E6F6022554 C79 
05541445C3150ECE FFE 
4C454146554CFF60 390 
4001E30013618698 6F1 
F21441367A124E02 A62 
F309209435131302 DB5 
2311E208DA939087 134 
DF1321088FA8811D 4DC 
81378874DC98BBDC 8A7 
D818198F21441367 C34 
2814311B698F2146 FA4 
1366E40136104A181 300 
98F21422F3097F81 697 
11413686F927A204 A11 
2213610A8F95EF01 099 
1A1348FB87EF01121 12A 
30807E47084A86F0 4C1 
08600087A001F087 843 
F22030214B0E06A0 BB5 
C1FD55F214713517 F42 
E143F434412E08A2 2C7 
400203103005F200 601 
79011367AB058213 969 
610A18198F21422F CED 
30978D011A136808 06D 
&A8002E610A86001 400 
1F765F2147641032 76D 
1088FA8811137C2D 805 
72031FE8F99A804D EAE 
0317180393901613 209 
31E34231521916E0 56C 
11AE610A60102231 8DF 
2423916FO11ACE8A C74 
AD010A713066AF16 000 
3659E8F681F08F19 3A7 
DB0042E5A091CC01 73F 
1091C40030218300 A96 
14AD8132C0130018 DFE 
D31F808DE3F80136 1A0 
18198F2144018010 51E 


: OFC10013618698F2 8A4 


1447FCF4E02F30A2 C4A 


: 0943A0314064B087 FC2 
: DF1321088FA88110 36A 


8137887FDC988B8D 73C 


: D818198F21441641 AC4 


461367C3F560651E E47 


: 18198F21421022F3 189 


0A69C25010070100 51E 
1322F30A734F8161 894 
366A6E5E0007E000 C15 


: 793F7E2F4412F30A FB7 
: 94321309943A0315 310 


06D0002E610A8600 683 
11F765F214764103 A1F 


: 21088FAB811137C2 DAS 


FSFYE 


049: 
04A: 
048: 
04C: 
040 
04E : 
04F: 
050: 
051: 


MASERLEX 


: D718198F21461362 124 
: 031FE8F99A804A03 4C4 


150688C161331E24 841 
2315219120322315 B8F 
4239120322314423 ECC 
9127122313423912 210 
AO7S6E6S8AF11AE61 5BC 
OA6FEF11ACE 10A8A 98A 
E1E744E6FAC8D303 D48 
50038FA2C20FE1E3 0ED 
4E00002080530301 440 
850339758494C454 781 
298F324508FCE250 845 
8DE6A208D39450F EB5 


0123456789ABCDEF. sm 


D414355425C45485 372 
802E008001304068 6BF 
CA3001E000000000 AOC 


: FE0000000800001F D66 
: F31FE96140007512 ODE 


59F728242FDB70C1 482 
077A810774811137 7F5 


: FA11138FA0DE071A BAS 
: 18FASCEO8FC28901 F5F 


631181F588F21458 2E2 
FBA9908F674A1D91 69C 
3416F16513688390 AOC 


: 80D44903F02C2029 D98 


6E602c696154716F 121 
35E6560225154116 47A 
5200231327731D8C 7F1 


: D314F8F338900214 B83 


C136058FC2890091 F35 
361FF85F21451341 283 


: 63136E181004E481 643 
: CE4C4C4174136C21 909 
: 45D48F42A7118315 D59 
: 833FD41435542545 O0CB 
: 0202AFA8F0BF9053 46E 
: 2AF3AF210810A10B 801 
: E61098F1C6114345 B80 
: 2CD0CC1011331037 EF3 
: C515708AE 7287801 28A 


D21281338F10FA17 61A 
F310521480023163 978 
80A93907E308FD3D D35 
E010870301180810 082 
87420067E 1006781 41A 
01F588F214710800 78D 
DA8DDOF808FE3F80 B64 


: D803051F34CF2147 FOB 
: 8FAB811500023243 28D 


ID#E1 468 octets 


025 
026: 
027: 
028 
029: 
02A 
028: 
02C: 
020: 
02E: 
02F: 
030: 
031: 
032: 
033: 
034 
035: 
036: 
037: 
038: 
039: 
03A: 
038: 
03C: 


SWAPLEX 


000: 
001: 
002: 


011: 
012: 
013: 
014: 


TOTOLEX 


000: 


58A24001133c0131 5E1 
143021F855F21471 949 
3515373F64F42545 CBE 
8425140497250500 O1A 
17FD0158334912E0 39F 
E2CE470CE50017F1 745 
741431F855F21478 ABD 
A2505001FC0BF214 E43 
7CECECEO1D2755FS 215 
D2147CECE4000231 585 
147E3FCC4001FF4C 960 
F2147A6E54003021 CDC 
3117F1738FD1F600 07C 
7174137111701050 3BA 
0028680031630210 706 
1AFOCC1008478487 A93 
120400134110E€410 DCE 
01198A2758780013 128 
6500D113588F4417 4CC 
3137887E315838F4 860 
2A7123A980981520 BE9 
4OODDB1EE6CÉCÉ13 F94 
3131C28885085803 30A 
85702CD85802F  5F1 


0123456789ABCDEF sm 


35751405C4548502 35D 
802E009001304068 6AB 
E2100€5010100000 9%EF 


: F710000000000000 D1D 


0€70000735751405 082 
011FF76208F83940 40F 
8FEA2305F371108F 7AD 
E7A2051380271308 B26 
488FE05304508588 EAS 
62008FA663086800 20F 


: CD909008082E208D 5B8 


082509FFFFB9FFF7 99F 
F708F871F08F087F D5D 
01611321008FD0F8 OCC 


: 01101308F681F08F 443 


8F5FO8FE3F800813 80A 
47F208F888817230 B9C 
8F681F08F087F072 F45 
1015378F8F5F0808 2€! 
&ABOBFE459180803 699 
B186F008D53AF0F A10 


ID#93 129 octets 
0123456789ABCDEF sm 


45F445F4C4548502 385 





ID#SE 149 octets 


001: 802E009001304068 603 009: 1504310F9E2E0873 1A1 
002: 6010039101000000 9F8 00A: C48D335A03100966 52D 000: C494E4B4C4548502 392 
003: F710000000000000 D26 008: 11307A87161AF056 8A3 001: 802E000101304068 6D8 
004: 032000053545B410 07C 00C: 17A015C08FD2F904 C3C 002: 5A1001EC4D400000 A44 
005: 1FF8D91FB0EB0000 42E 000: 168138FA54808739 FBA 003: F020000000000000 D6cC 
006: CO008F681F08F322 7B9 00E: 0853688F60A0161A 336 004: 09E000FF0082000F 0E6 
007: B1CC8148AC9D8101 B62 00F: FO8FA54808438FB6 6E1 005: BC4142454C442C49 470 
008: 3606D21F679F215F EF8 010: 480817AFB10B8F36 A80 006: D4E454D4F4D41FF4 835 
009: 015901B675F2EE40 282 011: F90545866D511BAF E25 007: 118F13DB0137135C BB6 
O0A: 4DAD73068F943B1D 634 012: 7102D231138F4C48 19E 008: 20681cC1018507270 F09 
00B: 8146169142C0131E 99B 013: 04c611113111A15D 500 009: 444AE531A2961831 283 
00C: 08F401B1AF223303 D15 014: F17F33412E15D317 88B O0A: 19E2D5D231818816 611 
00D: CF4921C515D553F8 0BB 015: F174AF215D917931 C1E 008: 2313088522071351 95E 
00E: 148F1A610DA14613 43B 016: 0F14D1318F5ASA08 FB4 00C: CFD48FB13B1AF68D D3F 
00F: 5E2D58F86181241B 7D9 017: D84A808F96280402 33A 00D: 832F00142E840712 0B8 
010: 085F28FA8F800713 B6E 018: 11913551E817B474 6AA 00E: 05C0111E4D85EC85 452 
011: 68F84A808D394508 FO00 019: 6EA4750E33A3008D A41 00F: 07D004EE119E2D55 7EB 
012: DE6A20F OAF 01A: A93908FBO0O6A08F45 DES 010: AB3102AE5CC40014 B7E 
018: 1101FD55F2147135 159 011: F17187090965DE01 FO03 
EDITLEX  1D#01 270 octets 01C: 1537330202108031 490 012: 9616E014118F13D8 280 
01D: 4A31FC966001613F 818 013: OAF1D881DD2E68BD 65D 
0123456789ABCDEF sm 01E: B656973702020202 B6D 014: 0514331D3966A0CD 9E2 
01F: AC3AFAO178304E25 FOF 015: 1711433120885333 D31 
000: 54449445C4548502 366 020: 508588F5CC305908 298 016: 0688182313296222 094 
001: 802E000101304068 6AC 021: D20F20878918FA2C 63E 017: 8F670B81581312096 405 
002: 1220010888B00000 9F6 022: 203FEDFFF0080271 9FA 018: 58133853523916E0 772 
003: F710000000000000 D24 023: 30038FE7A204005C D79 019: 1370909137D120A6 AFE 
004: 0910005754449445 071 024: € DBF O1A: 58F064A1C9109850 E80 
005: 881FF3A100342300 3E9 018: 8F7B1818FE838180 23E 
006: 0218FB83510446AF3 76D LINKLEX  ID#E1 208 octets 01C: C32F0 361 
007: 33020210814A313F AC3 
008: 96611161873E1741 E26 0123456789ABCDEF sm 


JC 31-32-33 Page 77 


me mr ( © 


it yo te ee — 4e am 


' 
A, 4 mt 0 ont À St 


nm Aie fm nie ee St fistatels hd me term ape (eee 0 dim di à 


mat eh 


+ - 


Sn Ce tte 4 — nt mdté A On CAMES — RS en me ce 
5, 
* 


is 
pl 


v…. 


262 


FT SO8T LTm£É-iE DEL 


re 


= +0 è émise © _ 


CLEA 22029 


SO 61 ER CR. - 


MANTANTR NEIL 
DIR MERS : 
10527 ERA 4 


Fr DANSE NREASAT EUR : 
Va Stat HOUSE TMS à 


= Don crier! 

PNG A IDE I MAUE 
(FA ATLEl EE He 
G'ASPAITSR SR Tr 


RE + 


th TA lai Er ETS 


1 LESOARESA CNE 


EST TO 


Fr ARTS OUT + 
| SPAS WE A VER à 


FR NEITTs 


s MIE ATEN : 


LT ET 
ARR 24 25 FH ire rat . Ex 


LL ”<: RATE ET tré : 
É AEtRAS TZ sr 

to a52#5c1 se 0) 
à PAU 220" SUISSE 


JC SETEAATEE 
MESA S EN AE? 


PARU ENPLSMNIEZ : 


GHIMORSHE NES : 


Cas : 


l'AS PORT SI SO TRON 
Me ABARIIL ACTA 


PAS 
HS 


s5t 


1€ 
30 
| 
ME 
des 
QE 


qe 
7h 


LES 


DCUTATOITRATOET F 


HOT ASOMSENTEAANE 3° 


OETRNENSAIRE I Et 


. ARATOAOSISETENC 
HIS NBPERLE : 


SEAMAGI sLAVIEOG 


that péér art : 


Ba RTE ÉSCGUES 


GÉIAFTEST ETES SN à 


VIECGPEACI SEE : 


FAIT TOGITELAAT IE : 


BC Aar Nes 
STACAS AN ARCS ERC 
STONNTEZ*EATIT 
GICEATT SIM ART 
2h 48re N127079,; 
EF rer 
FEJENLISLECS 277 
LPÉIICASTRTEZS 
Co EXtarse 
2532 CaTai 
QUE mébinie 
JA IS TOP IR, 6780 


5 FAT 1000 
À VOOMSAN PEINE 


14 SARL Le 


. éd 
h 


84 


: 2810 
tete 


“FAT: - 


:610 
1 
201: 
:af€ 
2410 
1USC 
2552 
DE 2 
+ 


124 


2141! 


Te CR Re QE CRU er nn UE Re 


10e BE Cou 4 271 LS 0 
OV MER REC Le “EU 
2 AGÉGOGROOUETCE :T0 
AI AGERE CB 1 
C6 COCA NOBANT D 
MT LELASEN SSSR 0 
fat 16t807aRt "8298 NO 
MEN PSN TSONSE 167 
UT DIR ITAS OOPiIG seu 
da DISSOUTE : A 
sh MECS fi. «20 
ÊtA PCT DES FT 
00 GE TE) Et atès Mi 
SES TSF RATES :30 
SET AIscre dors : 406 
LA ER 1564/9590 tra 
Ke Sera Ent TA 


"E FOS2A2E c-1G 


D 3 en ns RL 4 L27 . Ua 


mE AMSENTENEHES EE 


LE CINE Fate te AE 
3 SOIN IMOANCA ere 
9 DNOMIMMOTEOSET NA 
169 DOLNAANODONFIU «rm 
1,9 of AMPERCQUES TE) sp 
FE GPO TAENNI SR CON 
NS ÉtAgI At TNT LD 
EDR AETUAM AI QUOTE IE 
ses PENTIUM «(BES 


- : 
à —… te 8 26 00 A RÉ OS A NOUS RE ne lie Re M © 


… 


b 
— ms nm ne 


e 


I 


i 
, 
QU mt mt fe A à 0 60 om bé AN oo TA dd À MT mA Me mené ne 


LE LS 


1 


4 


mûr 6 péde 


AURIL 1986 PPC PARIS CHAPTER 


ASSOCIATION REGIE PAR LA LOI DE 1901, ENREGISTREE 
A PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82/3240 


BULLETIN D ”°ADHESION 
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l 1 ! 1 ! } ! ! i l } l i ! Î i ! i ! ' 1 i î i i i i ! ! l LES RTE 
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ODE Postal ED LI PAYS EL tp LT 14 {EN RAR OR 
TELEPHONE DOMICILE 1102/1010 Ut 1 I I! BUREAU 1211/1211 1 1 155 ii 
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INTERETS 
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MATERIEL HP EN VOTRE POSSESSION 
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AUTRE MATERIEL MICRO-INFORMATIQUE 
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COMMENT AVEZ-VOUS CONNU PPC PARIS CHAPTER 7 


PUBLICITE MAGAZINE 


AUTRE CLUB HP 


RELATIONS, MEMBRES DU CLUB, AUTRES 


QUE RECHERCHEZ-VOUS AU SEIN DU PPC PARIS CHAPTER 7? 
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Je souhaite adhérer au club PPC PARIS CHAPTER conformément aux statuts de 
l'association. Au mieux de ma connaissance, je déclare avoir le droit de fournir 
tous les programmes et informations que je vous enverrai (sans enfreindre des 
chiigations de secret à l'égard d'autres personnes cu organismes) pour 
publication dans le journal de liaison, sans obligations ni responsabilité 
d'aucune sorte (en cas d'utilisation frauduleuse) de la part des dirigeants du 
PPC PARIS CHAPTER. 


DATE 1_1_1/1_1_1/191 11 
SIGNATURE, PRECEDEE DE LA MENTION “LU ET APPROUVE" 


LE MONTANT DE LA COTISATION AU PPC. PARIS CHAPTER S'’ELEUE A 300.00 FF. 
ETUDIANTS: 250.00 FF. (JUSTIFICATIF INDISPENSABLE } 
PAIEMENT EFFECTUE LE !_!_!/!_!_1/191:_!_! A L'ORDRE DE PPC PARIS CHAPTER. 
PAR [L ] CHEQUE BANCAIRE N° BANQUE 
[ }] CHEQUE POSTAL 3 VOLETS N° 
[ ) MANDAT LETTRE 
EVENTUELLEMENT: JE M'ABONNE À COMPTER DU 1_1_1/1_1_1/191_1_: 
JOINDRE A VOTRE INSCRIPTION UNE PHOTO D'IDENTITE ET UNE ENVELOPPE TIMBREE À 
VOTRE ADRESSE. 
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Le Journal JPC est le bulletin de liaison entre 
les membres de l'association “PPC-PC", régie par 
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